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This module contains routines for basic block 1/0, as well 
as the buffer management mechanism. 


{ ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


Www 


1 ; 
2 : 
' . 
i 3 
é F 
: 0 ; i eeaneeeneenenerenneneenerentenerererertnerterreetentnensenesnennenneetreetes : 
\e ; 
10 0010 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® : 
11 0011 ' DIGITAL EQU/PMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
i Bot6 on ALL RIGHTS RESERVED. * : 
. ® Py 
14 0014 'e ae SOFTWARE IS FURNISHED uct A LICENSE AND MAY BE USED AND gd Lt * ; 
15 eet 't ONLY IN ACCORDANCE WITH THE ye® MS OF rete” LICENSE AND WITH THE ®* : 
16 016 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * ; 
17 0017 is COPIES THEREOF MAY NOT BE PROVIDED OR OT ERWise MADE AVAILABLE TO ANY * : 
18 0018 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
13 84 TRANSFERRED. * : 
‘ * : 
21 0021 'e pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
$$ 00 ¢ '® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Si 88 ? - CORPORAT ION. * 
4 ® 
25 O0S2 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$$ 8 $ 't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 ® 
8 0058 ‘e * 
; it 34 Lae RARRAR EAA AAAAAAAAAARAARAAAAAAAAAATAEARE TERETE AEAEAAAARERRRARAARAeeRARe Eee 
: boss J i 
g 3 FACILITY: FIIACP Structure Level 2 
35 0035 i ABSTRACT: 
7 00 
8 00 
9 00 
0 
; 
4 
5 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 22:48 
i MODIFIED BY: 
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$ v04-005 CDS0020 Christian D. Saether 30-Dec-1984 
002 'CDS Modify FREE_ONE to return status so we can tell whether 
003 ‘COS the coche interlock was released or net. If so, a 
Ope igpe found buffer must be re-searched for. 
006 'CDS00 When freeing a buffer in FREE_ONE, unhook and return bfrd 
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if there is no BFRL Link yet. 
Remove CDS0018 bugtrap as the bug has been found. 


CDS0019 Christian D. Saether 27-Nov-1984 
Check buffer credits when considering multi-block reads. 
CdS0018 Christian D. Saether 15-Nov-1984 


Limit the number of Links followed to the buffer count 
when following a hash chain in UNHOOK_BFRD and bugcheck 
if it is exceeded to avoid infinite looping. 


CdS$0017 Christian D. Saether 14-Nov-1984 
Modify KILL_BUFFERS to deal with directory index 
blocks also. 


CDS0016 Christian D. Saether 12-Sep-1984 
Deal with the situation where a buffer is currently 
accessed by another process. 

Also delay removing the bfrd from the process List 
in FREE_ONE because of potential double remque if 
the buffer is dirty and an error occurs writing it. 


CDS0015 Christian D. Saether 30-Aug-1984 
Allow for multi-header directory files. 
CDS0014 Christian D. Saether 24-Aug-1984 


Removing an entry from the padi get index cache 
free List had one too any levels of indirection, 
occasionally messing up the 


CDS0013 Christian D. Saether 7-Aug-1984 
Add KILL_DINDX routine. Remove tests for dir_fcb 
and primary_fcb in unhook_bfrd - the fcb$v_dir flag 
handles those conditions correctly. 


CDS0012 Christian D. Saether 6-Aug-1984 
Fix bug in CDS0011 causing infinite loop when 
yi disk /nocache, or while marked for dismount. 
Use L_NORM Linkage for UNHOOK_BFRD. 


CDS0011 Christian D. Saether 15-Jul-1984 
Add s Fok for maintaining directory index blocks. 


queue. 


Add _DIRINDX routine. 

Remove intermediate blocks from CDS0010. The 
problem was in the form of the bind_common 
declarations and was resolved there. 


CDS0010 Christian D. Saether 77-Jul-1984 
Break up READ_BLOCK and FIND_BUFFER into smaller 
blocks to stop the absurd amount of cse that the 
compiler generates. 


CDS0009 Christian D. Saether 2-Jul- | 984 
Remove CACHELOCK Sons iscency check so that cell 

can be ysed or STS_DISKREAD flag. 

Raise minimum file Reader requirements to 3 buffers 


K 14 


v03-023 CDS0006 Christian D. Saether 25-May-1984 
When not cluster accessible, do not bump 

sequence number on modifies. 

Add routine to scan appropriate pool and kick 


out buffers of a given type. 
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yOee 00S mets 1 13:29:33 F11X.BUGSRCIRDBLOK .B32;1 - (1) 
BG } from 2 buffers. : 
HG 1 v03-025 CDS0008 Christian D. Saether 24-Jun-1984 : 
88 ' Restore multi-block read capability. : 
91 1 V03-024 ¢Ds0007 Christian D. Saether 20-Jun-1984 : 
u 1 Raise/lower process diocnt around qio so that file ; 
9 1 system i/o is not blocked for lack of quota. Do : 
94 1 same for ASTCNT so it does not fail for lack of F 
95 ast quota either. : 


vO3-022 Expand test for clusterness to test whether we are 
are a cluster at all. 


v03-021 CDS0004 Christian D. Saether 8-May-1984 
o not leave lock on buffer if not cluster device. 
aly buffer validation for bitmap, index, and quota 
type buffers. 


v03-020 cdS0003 Christian D. Saether 10-Apr-1984 
Bump appropriate pool hit/miss counters. 
Don’t set VALID, DIRTY in bfrd in CREATE_BLOCK if 
for special lbn -1. Set VALID, DIRTY in bfrd in 
RESET_LBN routine. 


v03-019 CDS0002 Christian D. Saether 4-Apr-1984 
On lockbasis mismatch, when tolerated at all (for 
blocks in the data or headers), toss the buffer out 
to get the lock dissociated because it’s the wrong 


one. 
v03-018 CDS0001 Christian D. Saether 20-Mar-1984 

Establish BASE as AST parameter in SERIAL_CACHE routine. 
v03-017 ACG0408 Andrew C. Goldstein, 23-Mar-1984 14:47 

Add AST parameter so that impure storage is fully based 
V03-016 ACG0403 Andrew C. Goldstein 15-Mar-1984 17:35 


Correct test for new buffer in WRONG LOCKBASIS; 
fix buffer address computation in TOSS_CACHE_DATA. 


vO3-015 CDS _—s Christian D. Saether 9-Mar-1984 ; 
Rewrite cache routines for shared paged pool caching. 
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LIBRARY a SLSR JORARY:) 19,152"; 
REQUIRE ‘SRC$:FCPDEF .B352'; 


FORWARD ROUTINE 
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EXTERNAL ROUTINE 
WAIT _F 


WN SO DONOUSWN—O 


14 
B-Jan-1985 18:20:35 


RESOLVE _AMBIGUITY : L_NORM NOVALUE, 

GET _REQS BFR_CREDITS | L_NORM NOVALUE, 

RETORN BFRD : L_JSB_TARG NOVALUE, 

FIND BOFFER : LINORA, 

INVACIDATE : LINORM NOVALUE, 

UNHOOK_BFRD : LINORM NOVALUE, 

WRITE _GLOCK : LINORM NOVALUE, 

FREE_ONE : LON 

WAKE “WAITER : NOVALUE 

RELEASE CACHE : L_JSB NOVALUE, 

SERIAL_CACHE : LIJSB NOVALUE; 
OR_AST : NOVALUE, 

CONTINUE_THREAD : NOVALUE; 


yan Bliss 
F11X.BUGSRC 


! exit thread until completion ast 
! completion AST to resume thread 


CTL$GL_PHD : REF BBLOCK ADDRESSING_MODE (GENERAL), 
CTL$GL_PCB : REF BBLOCK ADDRESSING_MODE (GENERAL); 
QFLNK 


= 0.0.38 0 i, 

QBLNK = 4,0.32.0 %. 

LOOKUP_LBN (LBN) = 
BEGIN 


ND 
HSHTBL = .CACHE_HDR CF11BC$L_LBNHSHBAS) : VECTOR C,WORD]; 
oN CABS (L8N MOD .CACHE_HDR CF11BC$W_LBNHSHCNTJ) J 


LOOKUP_LOCK (LOCKBASIS, PARLKID) = 
BEGIN 
BIND 

HSHTBL = .CACHE_HDR CF11BC$L_BLHSHBAS) 


BFRD_ADDR (BAS1INDX) = 


-CACHE_HDR CF11BCSL_BFRDBAS] + (BASTINDX - 1)*BFRDSS_BFRDDEF %, 


BFRLD_ADDR (BASTINDX) = 


~CACHE_HDR CF11BCSL_BFRLDBAS] + (BASTINDX = 1)*BFRLSS_BFRLDEF 2%; 


POOL_TABLE 


: VECTOR C,WORD); 
ean. CABS ((LOCKBASIS + PARLKID) MOD .CACHE_HDR CF11BC$W_BLHSHCNT))) 


Calculate address of given descriptor within 1l-based descriptor blockvectors. 


! file headers 
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v04-005 eager 19 4 1§:39:33 F11X.BUGSRCIRDBLOK.B32;1 = (2) vq 
: 03 } ¢ ! GLOBAL ROUTINE MAKE_DIRINDX (FCB) : L_NORM = 6 
: 205 1224 1 !+4 : 
; 06 1225 1! $ 
: 4 ! 8 : FUNCTIONAL DESCRIPTION: : 
: 209 1228 1 | This routine validates the bhi) pat index pointed to from the ; 
: si9 : 8 : given FCB, under the cache interlock. : 
: $i¢ 1 He 1! If the given FCB does not have a directory index, attempt to : 
: Hp : ¢ : attach one to it. : 
: 215 1 3 1 | ROUTINE VALUE: ; 
; $18 t+) ae } ‘ ; 
: 27 1236 1! 0 - if the given FCB is invalid $ 
; ew 1237 1! 1 - if the given FCB is valid F 
: 219 1238 1! 3 
; 220 1239 1 !<= : 
s eet 1240 1 3 
3 $$¢ 1241 BEGIN 3 
s ge stg 3 
3; 224 124 MAP $ 
3 dee 1244 FCB : REF BBLOCK; $ 
: 226 1245 3 
3; 227 1246 BIND_ COMMON; $ 
; 228 1247 y $ 
: 229 1248 2 EXTERNAL 3 
; 230 1249 2 PMS$GL_DIRHIT : ADDRESSING_MODE (GENERAL), $ 
3; 231 1250 2 PMSSGL_DIRMISS : ADDRESSING_MODE (GENERAL); $ 
3 gue 1251 2 LOCAL ; 
; 233 1526 2 DIRINDX : REF BBLOCK FIELD (DIRC), : 
3; 234 125 2 DNDX_BFRD : REF BBLOCK : 
: 235 1254 2 F CBVALID : INITIAL (05; ; 
; 236 1255 § 3 
3; 237 1256 IF .LB_HDRSEQ C.DIR_LCKINDX) EQL 0 $ 
; 238 1257 2 THEN 3 
; $33 1238 LB_HDRSEQ C.DIR_LCKINDX] = .LB_HDRSEQ C.DIR_LCKINDX] + 1; : 
: 341 1260 If _.LB_DATASEQ [.DIR_LCKINDX] EQL 0 : 
: 308 136¢ LB_DATASEQ C.DIR_LCKINDX] = .LB_DATASEQ C.DIR_LCKINDX) + 1; 3 
; 24s 1264 SERIAL_CACHE (); : 
: 26 1366 IF (DIRINDX = .FCB CFCBSL_DIRINDX]) EQL 0 : 
: 248 126 THEN : 
: 249 1268 BEGIN s 
: 250 1 $9 LOCAL 3 
; 251 1270 INDXO, 3 
3 238 ' 4 POOL LRU : REF BBLOCK; 3 
: re : 7 POOL_LRU’= CACHE_HDR CF11BC$Q_POOL_LRU] + 3*8; : 
; 356 fe REMQUE (.POOL_LRU COFLNK], DNDX_BFRD); : 
; 338 i444 INDXO = ((.DNDX_BFRD = .CACHE_HDR CF11BC$L_BFRDBAS]) /BFRDSS_BFRDDEF); : 
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UNHOOK_BFRD (.INDXO + 1, .DNDX_BFRD); 
DIRINDX = (.INDXO*512) + .CACHE_HDR CF11BCS$L_BUFBASE); 


DNDX_BFRD (BFRDSL_LBN] = .FCB; 
DNDX_BFRD [BFRDSB_BTYPE) = BIRINDX T 
DX_BFRD L Fiak 


TYPE; 
DNDX~B BFRDSL-LOCKBAS! -LB~BASIS C.DIR_LCKINDX; 
DNDX"BFRD CBFRDSL yee] =, NT_OCB; 
FCB CFCBSL_DIRINDR) = sDIRINDX; 
DNDX Bere CBFRDSV_VALID) = 1; 
DIRIADX CDIRC$W_IRUSE) = 0; 

SSGL_DIRMISS = .PMSSGL_DIRMISS + 1; 


m 
fon 
w 
m 


BEGIN 


DNDX_BFRD = (((.DIRINDX =_.CACHE_HOR C1 1GCSL_BUFBASEJ) /512) *BFROSS_BFRDDEF) 
+ ,CACHE_HDR CF11BCS$C_BFRDBAS); 


REMQUE (.DNDX_BFRD, DNDX_BFRD); 

a aati erica CBFRDSL_SEQNUM] EQL .LB_HDRSEQ C.DIR_LCKINDX) 
BEGIN 
FCBVALID = 1; 
we CDOIRCSL_DATASEQ) NEQ .LB_vATASEQ C.DIR_LCKINDX] 


BEGIN 
DIRINDX CDIRC$W_INUSE) = 0; 
PMSSGL_DIRMISS = .PMSS$GL_DIRMISS + 1; 
ELSE 
PMSSGL_DIRHIT = .PMS$GL_DIRHIT + 1; 
END 
E 
BEGIN 
DIRINDX CDIRC$W_INUSE) = 0; 
PMSSGL_DIRMISS = .PMSS$GL_DIRMISS + 1; 
END; 


ag Rs_usee (3) NEQ 0 

BUG_CHECK (XQPERR, ‘should not have any in use’) 

BFRS_USED (3) = 1; 

IF_ .DNDX_BFRD CBFRDSW_CURPID] NEQ 0 

BUG_CHECK (XQPERR, ‘directory index buffer should not be in use’) 
DNDX_BFRD CBFRDSW_CURPID) = .CTLS$GL_PCB CPCBSL_PID); 

INSQUE (.DNDX_BFRD, .BFR_LIST C3, QBLNK)); 


POPOL RPPPINIUMORININIUIWE B BUS BS PUI BBB BWW AAI WNW WWW 
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b-dan- tt aes a CLEP A ETS Tee age 3 
RELEASE_CACHE (); 
-F CBVALID 
1 END; ! of routine MAKE_DIRINDX 
-TITLE RDBLOK 
“IDENT \V04-005\ 
-PSECT seigeepeen sd 
03 01 01 O02 01 00 O02 O0000 P.AAA: .BYTE 2, 0, 1, 2, 1, 1, 3 ; 
POOL _TABLE= P.AAA 
SEXTRN WAIT FOR AST. CONTINUE THREAD 
“EXTRN CTLS$GL_PAD, CTL 


~EXTRN basset DIRHIT, PMSSGL_DIRMISS 
-EXTRN BUGS_XOPERR 


01FC 00000 .ENTRY MAKE DIRINDX Save R2,R3,R4,R5,R6,R7,RB : 1222 
58 CC AA 9E 00002 MOVAB =52(BASE), R& > 1244 
55 F4 AA YE 00006 MOVAB 518 (BA SE). RS ; 
56 00D4 CA 9E OO00A MOVAB  212(BASE). R6 : 
57 D& OOOOF CLRL —~ FCBVALID F 
50 66 DO 00011 MOVL  (R6), RO + 1256 
50 0094 CA40 DE 00014 MOVAL 148(BASE)CROJ, RO ; 
60 D5 OOO1A TSTL (RO) : 
02 12 0001C BNEO =—«-:'1$ : 
6 06 OO01E INCL — (RO) : 1258 
50 66 DO 00020 1$: MOVL (R6), RO > 1260 
VAL ASE)CROJ, R : 
50 00A8 Aa p 00 MOVA 168(6 E)CROJ, RO 
a 4g Bo0se ONE ROD : 1262 
oosov 36 005° 2 BSBW - SERIAL_CACHE : 1564 
50 04 AC dO 00032 MOVL FCB > 1266 
V RO), DIRINDX : 
54 0080 9 D 99 MO 766 0 
50 FC AA 00000040 =F : 00 D ADDL3 #64, -4(BASE), POOL_LRU > 1273 
52 00 BO OF 00046 REMQUE #0 (Foot LRU), DNDX_BFRD > 1275 
5 28 8 40 c3 booce SuBt 2 (ROD, Mi FRD, RO Pecos 
a 26 é ¢ 0035 suelg iy bre : 
BD 909 PUSHL : 1279 
01 A3 9F 00059 PUSHAB van NBS fa ; 
0000v cf 0 FB 005¢ CALLS , UNHOOK_BFRD ; 
53 a 09 7 9061 ASHL R > 1281 
54 53 FC BA C1 00065 ADDL3 Bi dies R3, DIRINDX : 
08 A 04 AC p 06A MOVL DNOX_BFRD) : 1283 
19 A 06 O6F MOVE #8, 2 (BND “BFRD) :1 
5 66 DO 00073 MOVL > 1285 
10 A 0080 CA40 00 00076 MOVL ar (4uSE CRO} 16(DNDX_BFRD) ; 
2 94 AA D 9070 MOVL 98 BASE) 2(DNDX_BFRD) ; 1286 
5 04 AC 00 0008 MOVL ; 1287 
0080 «(CC 54 DO 00086 MOVL BTRINDX. 176(RO) : 


. 
LOL LO LO LOO LOO LOLOL LO LL OO OL LO Oe i, Le, LL Li, i Li I i Le ei, LO ee, ae, en, Le, 


Bae Oe Oe Oe Oe Oe Oe Oe Be See Se He Be Se Be Be Oe Be Ge Be Oe ee Oe OH Se Oe Oe Oe Se Se Se Oe we Oe BH Se Oe Se Oe Oe Oe Oe Oe Os oe Ot Os Oe oe OH Oe ee ee 


- BLOK B-Jan-19 5 18: 7: 2 yaa Bliss-32 V4.0-742 Page ’ 


; Routine Size: 263 bytes, Routine Base: S$CODE$ + 0007 


-005 -0¢t-1984 1 F11X.BUGSRCIRDBLOK.B32;1 (2 
18 A2 8 B BISB2 24 (DNDX_BFRD) :1 : 
98 6 88 BRB ie. : 13 9 ; 
0 FC OA 09 1 3$: OVL.  =4(BASE), RO + 1295 ; 
51 4 0¢ 95 SUBL3 (RO), DIRINDX, R1 : ; 
1 00000200 8F ¢é 00099 DIVL Wie, R1 : ; 
1 0 ¢4 OOOA MULL2 #32, R1 ; ; 
52 51 18 ag ci OA ADDL er tko) DNDX_BFRD + 1296 ; 
38 62 OF OOOA REMQUE (DNDX BERDS, DNDR_BFRD + 1298 ; 
5 66 DO 000AB MOVL  (R6), RO : 1 ; 
0094 CA40 14 A2 0100 AE CMPL  20(DNDX_BFRD), 148(BASE)CROJ : : 
17 12 0008 BNEO 4$ : ; 
37 01 OD ttt MOVL #1 PCOyALIO 3 1303 $ 
0 66 D BA MOVL (R6) : 1305 ; 
OOAB CASO 08 A& 01 000BD CMPL so tRinDXD 168 (BASE) CROJ : F 
08 12 O0¢4 BNEG  4$ : ; 
000000006 00 06 000C6 INCL  PMSSGL_DIRHIT + 1312 : 
08 11 OOOCC 3°8 5$ ; 1300 $ 
64 B4 OOOCE 4$ CLRW  (DIRINDX) : 1317 ; 
000000006 00 0b 99000 INCL  PMSS$GL_DIRMISS : 1318 ; 
06 AS BS 000D6 5$ TSTW  6(R5) + 1323 ; 
06 13 00009 BEQL 6 : ; 
FEFF 90008 BUGW + 1325 ; 
0000* 00000 -WORD <BUGS$_XOQPERR!4> : $ 
04 11 O00DF BRB Re : ; 
06 AS 01 80 O00E1 6$ MOVW #1, 6(RS) + 1327 ; 
1c A2 8 O0ES 7$ TSTW 28 (ONDX_BFRD) + 1329 : 
06 13 00068 BEQL $ : 3 
FEFF OOOEA BUGW : 1331 3 
0000* OO00EC .WORD <BUGS$_XOPERR!4> : 3¢ 
OC 11 OOOEE BRB 9$ : 3 
50 000000006 00 DO O00FO 8s MOVL CTLSGL_PCB, RO > 1333 3 
1c A 60 AO BO 000F7 MOVW  96(RO)> 28 ond BFRD) ; 3 
1c «BS 62 OF OOFC 9$ INSQUE (DNDX BFRD a28(R8) > 1335 3¢ 
0000v 0100 BSBW RELEASE : 1337 3¢ 
50 57 DO 00103 MOVL OAD” ARON : 1341 3¢ 
04 00106 RET : i¢ 


2 


15 
B-dan-1995 19:20:35 yA 2, 


X-11 Bliss-32 V4.0-7 P 0 
11X.BUGSRCIJRDBLOK .B3 — (33 


SESS 
Neu 


! If this one is in-process, simply clear valid to cause it to 
! be cleaned up when locks are run down. Also clear the pointer 
to the fcb in the bfrd. 


BFRD C(BFRDSV_VALIDJ = 0: 
shod BFRDSL_LBNJ = 0; 


GIN 
UNHOOK _BFRD (.INDXO*1, .BFRD); 
RETURN_BFRD (.BFRD) 


3 ¢ } 1 ! GLOBAL ROUTINE KILL_DINDX (FCB) : L_NORM NOVALUE = : 
: 8 13544 1 S44 ; 
; 1345 1! ; 
: 3 ! 6 ! ; FUNCTIONAL DESCRIPTION: : 
: 0 1348 1! Invalidate the directory index block pointed to by : 
3 1 1349 1! the given fcb, if any. This is done under the cache ; 
3 ¢ : 29 : } serialization lock. : 
; 334 1 26 1 !-- F 
3 22 1353 1 3 
; 6 1354 BEGIN 3 
ae cg 1355 3 
; 338 1356 MAP 3 
s 339 1357 FCB : REF BBLOCK; é 
; 340 1358 3 
3; (341 1359 BIND_COMMON; 3 
3 306 1360 3 
; 34 1361 LOCAL 3 
3 344 1366 INDXO, 3 
; 345 136 BFRD : REF BBLOCK, $ 
: 346 1364 DIRINDX : REF BBLOCK, 3 
s 347 1365 PIDINDX : WORD; é 
; 348 1366 : 
; 349 1367 2 SERIAL_CACHE (); : 
; 350 1368 3 
s 391 1369 IF (DIRINDX = .FCB CFCBSL_DIRINDX]) NEQ 0 3 
: 326 1370 THEN 3 
3 3 1371 BEGIN 3 
3; 4354 1378 INDXO = (.DIRINDX = .CACHE_HDR CF11BC$L_BUFBASE))/512; é 
FY $22 1377 3 BFRD = .CACHE_HDR CF1IBCSL_BFRDBAS) + BFRD$S_BFRDDEF*(. INDXO); ‘ 
: 337 137? PIDINDX = .CTLSGL_PCB CPCBSL_PID); ; 
; 359 1377 IF .BFRD CBFRDSW_CURPID] NEQ 0 s 
; 360 1378 3 THEN 3 
: 361 tT 4 BEGIN $ 
: oe ' $9 2 . -BFRD CBFRDSW_CURPID] NEQ .PIDINDX : 
3: 364 1382 5 BUG_CHECK (XQPERR, ‘should not belong to anyone else’) 3 
g 1383 4 ELSE 3 
; 1384 5 BEGIN 3 
3 1 2 3 
3 1 3 
3 1 ; 
: 1 3 
3 1 3 
3 ' : 
; 1 3 : 
3 1 & 3 
3 1 & 3 
3 1 3 3 
: 1 4 é 
: 1 4 3 
3 1 4 : 


¢ 
¢ 
( 
( 
¢ 
( 
( 
( 
( 
( 
( 


pee epe hehehe hehehe. 
4 ae -oo 


OOOOODOO0O® 
SUS nnww owes 


; Routine Size: 104 bytes, Routine Base: SCODE$ + O10E 


F 15 

RDBLOK -Jan-1985 18:20:35 AX-11 Bliss-32 V4.0-742 Page 11 RI 
v04=005 et i 13:79:32 FFT 1x.BUGSRCIROBLOK-BS201 . (3) vi 
; 381 1399 END; 3 
; 38 1400 3( 
; 38 1401 FCB CFCBSL_DIRINDX] = 0; 3( 
; 384 1O86 3 
: 385 140 END; ; 
s SO 1404 5 
: 38 1405 2 RELEASE_CACHE (); ; 
; 388 1406 3 
; 389 1407 1 END; ! of routine KILL_DINDX : 
000C 00000 .ENTRY KILL_DINDX, Save R2,R3 3 1342 ; 

0000v % OO06 BSBw SERIAL_CACHE 3 1367 $ 

50 AC DO 0000 MOVL FCB, RO + 1369 ; 

50 0080 co D 909 MOVL  176(RO), DIRINDX : ; 

54 1 OF BEQL 4$ : : 

50 FC BA C2 0001 SUBL2 @-4(BASE), RO : 1372 ; 

50 00000200 8F (6 00014 DIVL2 #512, INDXO : 

51 FC AA o9 0018 MOVL =4(BASE), R + 1373 ; 

52 50 05 78 0001F ASHL. #5, INDXO, R2 ; : 

52 18 Al CO 90083 ADDL2  24(R1), BERD : : 

51 000000006 00 00 00027 vL CTLSGL_pCB R1 : 1375 ; 

53 60 Al BO 000 MOVW (RI) PIDINDX ; ; 

1C Ag B5 000 TSTw  28(BFRD) : 1377 : 

15 13 000 BEQL 33 : : 

53 1¢ =A2 Bi 00037 CMPW 8(BFRD), PIDINDX : 1380 ; 

06 13 000 BEQL 1$ 3 3 

FEFF 00030 BUGW : 1382 : 

9000s 003F -WORD  <BUG$_XQPERR!4> : ; 

19 11 00041 BRB ; 3 

18 A2 08 8A 00043 1$: BICB2 #8, 24(BFRD) > 1391 : 

08 A2 04 9047 CLRL 8(BFRD) : 139 : 

10 11 OO04A BRB $ : 137 ; 

52 DD 0004C 28 PUSHL BFRD : 1397 : 

01 AO 9F O0004E PUSHAB 1(INDXO) : : 

0000v CF Q FB 9091 CALLS #2, UNHOOK_BFRD ; ; 

50 p 6 MOVL F 0 : 1398 : 

0000v 30 00059 BSBW RETURN BFRD : : 

0 04 AC 00 0005¢c 3s: MOVL FCB, RO > 1401 : 
0080 ¢ 4 00 CLRL = 176(RO) F 3 
0000v 30 9 64 4$: BSBW = RELEASE_CACHE + 1405 3 

4 7 RET + 140? F 


( 
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RDBL -Jan-1985 18:20:35 AX-11 Bliss-32 V4.0-742 Page 12 

Nira te B-dan-19 4 13:39:32 F11X.BUGSRC JRDBLOK .B32;1 . (4) 

; 3 1008 ! GLOBAL ROUTINE READ_BLOCK (LBN, COUNT, TYPE) : L_NORM = : 

; #39 1410 1 !+¢ ; 

: 394 1411 1! 3 

; 395 aig : FUNCTIONAL DESCRIPTION: ; 

$ 38 1414 1! This routine reads the desired block(s) from the disk. :C 
; 398 1415 1! Blocks are categorized by type to aid buffer management. AY 
; 399 1018 1! Note that the caller assumes ony one block is ever read; multiple ¢ 
: 400 1417 1! blocks read ahead are acquired through cache hits on subsequent calls. 3¢ 
; 401 1618 1 ! CALLING SEQUENCE: iC 
3 rt ne : : READ_BLOCK (ARG1, ARG2, ARG3) ; 

> 404 1421 1 ! INPUT PARAMETERS: 5 

; 405 14 ; 1! ARG]: LBN of block(s) : 

3 rts 14 1! ARG2: number of blocks to read ’ 

; 40 1426 1! ARGS: block type code : 

; 408 1425 1! ; 

; 409 14 $ 1 ! IMPLICIT INPUTS: 3:0 
; 410 14 1! 30 
3; «411 1428 1 ! OUTPUT PARAMETERS: ; 

3 tig 1429 1! NONE ; 

; 41 1430 1! ; 

3; 6416 eg) 1 ! IMPLICIT OUTPUTS: ; 

; ai? 1o36 ' IO_STATUS receives status of I/0 transfer : 

3 617 1434 1 ! ROUTINE VALUE: : : 

; 213 1° 5 : address of buffer containing block ; 

; 420 1437 1 ! SIDE EFFECTS: 3 

: $621 1438 1! BLOCK READ ; 

3; 4 ; 1439 1! : 

; 4 1440 1 !<- : 

: 426 1441 1 : 

: 425 106g BEGIN 3 

: 426 144 ; 

3; 427 1444 a 

; 428 1445 2 LOCAL : 

: rs 1446 ! index of buffer used : 

.¢ 1447 BFRD : REF BBLOCK, |! pointer to buffer descriptor : 

3; 431 1448 STATUS, ' Q10 service status ; 

$ $38 1363 FOUND_COUNT; ! count of buffers gotten : 

; 4 1431 EXTERNAL : 

; 435 14 § ACPS$GB_DATACHK : BITVECTOR ADDRESSING_MODE (ABSOLUTE); ; 

: 4 145 ! ACP datacneck enable flags 3 

; 437 1454 : 

3; 4 1455 BIND_COMMON; : 

3; 439 1038 : 

; 440 145 EXTERNAL LITERAL : 

: rr 1628 ACPSV_READCHK : UNSIGNED (6); ! read check enable flag : 

: 408 1460 ! Find a suitable block buffer. If it does not already contain the block, : 

3: 646 1461 ! read it. ’ 

3: 4645 1406 : : 

PY 44 14 ° 

3: 44 1464 STSFLGS CSTS_DISKREAD) = 0; ; 


H 15 
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-Jan- 18:20:35 AX-11 Bliss-32 V4.0-742 Page 

vores at 1 13:29:32 Yt ix. BUGSRCJRDBLOK.B32;1 (4) 

v04-005 | 
> 208 1666 1 = FINDBUFFER (.LBN, .TYPE, .COUNT, FOUND.COUNT); : 
; res 1468 BFRD = .CACHE_HDR CF11BCSL_BFRDBAS) + (.1*BFRDSS_BFRDDEF); ; 
; 13g 1230 IF .BFRD CBFRDS$V_VALIDJ 
: Oe 1478 RETURN .CACHE_HDR CF11BCSL_BUFBASE) + (.1*512); ; 
> 456 147 ; 
ee ee : 
a : REF BBLOCK 
: $80 1299 SAVE_PRIV < VECTOR (4); : 
: 083 1298 STSFLGS CSTS_DISKREAD) = 1; ; 
ae cs pee 3 
: -PTR CPCBSu. 
ee ee Saha sem peat sla z} : 
: 467 1eBs 9 = “(PTR pcBsa” “PRY vi): ; 
: tes Pt SAVE-PR BTR P caso -PRIVI. P 0} 1; 
: £33 1487 BBLOCK [PTR "Pas PRIV Pavey “byPKSs 1; 
: 47 ons Save phtor PHD$Q_PRIVMSK}); ; 
: 3 1290 SAVE-PRIV PTR PHD =PRIVASK +h; 
¢ an 1491 BBLOCK fPrR PHDso -PRIVMSK.“PRVEV. v.L0G,16} = ; 
: 475 1498 BBLOCK CPTR CPHDSQ-PRIV 3 
2 of 1492 PMS TOT READ toc .PMS_TOT_READ + 1; ; 
: 478 P 1495 STATUS = cae 3 
: 3 4 aoe ASTADR = CONTINUE _THREAD, 
: oh P 1498 ASTPRM = .BASE 
: tb 4 1499 CHAN = ABs HANNEL 3 
; ans P1804 eee OR oe “AEPSCBDATACHKCACPSV READCHK] ; 
: tes B 1802 * $BITPOSITION (10$V DATACHECK)), 
: 3B B 1808 10SB = 10_STATUS ae 
; tbe Piz Piss = _. CACHE_HOR CF11BCSL_BUFBASE + (.1*512), 
: 3 PY 5 P = [FOUND-COUNT#512, 
: 388 oY ‘ot : 
: 430 13 : ; 
: ¢ ) = .SAVE_PRIV [2 
: 43 1309 rR PHDSa- PRI VASK +4) = SAVE _PRIV t4; 
: 496 1313 tty T) = .PTR CPCBSW_DIOCNT) - 1; 
: 33 1848 a ise ASTENT) = "PTR EPCBSU7A TENT) = 13 
: 499 1514 (PTR CPCBSO "SAVE _PRIV le. 
: 498 1318 (ptr CPCBso~ “PRL +4) : ASAE _PRIV 
= 499 ; 
: §00 151 IF NOT .STATUS 
: THEN 10 STATUS = . STATUS ; 
; i 1318 ELSE WATT_FOR_AST(); : 
: $0 1334 IF NOT .10_STATUS 


Oo 


SO DVDSP 


MORIPUNUNY 2 st 


FUSTSVSVSIS 


[SO OODNAMNE WN "OO ONOUS wn 


at a ts 6 ws a 


MAY) FUN 


PWNS AN 


A WWANINI WHE & EWAN PE Ow 


ouw 


WWwoe 


bas 


J 
tte ber) atta HOR CF1IBCSL_BUFBASE) + (.1+.J)*512); 


FROM 0 TO .FOUND_COUNT=1 
T (.10_STATUSCO3) 
INCR J FROM 0 TO .FOUND_COUNT = 1 


BEGIN 
BRD COFRDSV_ VALI dD) = 
BFR FRDSS _BéRDDEF; 


RETURN .CACHE_HDR CF11BCSL_BUFBASE] + (.1*512) 


EA EP A Tate 


! end of routine READ_BLOCK 


0OFC 00000 
57 000000006 00 9€ 0000 
5E 14 ¢ BR08 
54 FC AA SE 0000C 
A6 AA 1 8A 00010 
E 0D 00014 
08 AC 0D 00016 
OC AC DD 00019 
04 AC DD O00IC 
0000V CF 4 FB OOOTF 
#8 he 
56 05 } 00 fs 
50 18 Al Ci 000 
18 AS 03 €1 308 
occ § 351 000 
A6 AA 01 00 
52 44 it 
pO BE Sie 
oobe ¢ 00 $0 6 FC ce 
3 GSHHES. Hb GE Sis 
oc A 
62 2000008 . § 
O8E ca b6 
—e 7 
7E D4 F 
og % % Sa 
a 00 84 00 60079 


-EXTRN 
~EXTRN 
-ENTRY 


ACP$GB_DATACHK, ACP$V_READCHK 
SYS$Q16 


CTESEL PCS, zyve R2,R3,R4,R5,R6,R7 


#20, § 
-4 (BASE), 
a. ASB BASE) 


COUNT 

TYPE 

LBN 

#4, FIND_BUFFER 


(Rt 


oe RO, BFRD 
$3. 24(BFRD), 1$ 


te sve 
L_PCB, PTR 


girres 


— 1 trmwBRnoz—VeO20 
PR ped en mm 


ZO OWS Wana: 
VvVOCODWeo— Vv US 


rN FOUND» COUNT, -(SP) 
ad(Rr4 


— 
™ 
~ 
So) 


Ol ed ed ed ed ed et ed 


See Se Se Se Ge ee Oe Se Be Be Se Be Oe Oe Be Oe Be Se Be Oe Oe Oe Oe ose Sete Se Ge Ge 


é 


NUWo 
mon 


vw 
oo 


wen 
ou 


; Routine Size: 


000000006 


0084 


88 
00006 


0000v 


18 


Routine Base: 


on Vie VIMO 
MRmNRO oo— 


nun OC MMSE Sen 


Vio VVwMw wVvTUOo 


VVvw> Wu 
ooouww o- 


00 


00 


POuwslo 


ONVFL LMP OMVOOM NV VTNOMy —-MoPrn"y—O 


OND -O8 POO DS PF PO PO—OMNCO 


oa 
So 


DWOoOvwnvsooceoea Yvuioe 
+o-CoOoNn—m PU — 


SCODES + 0176 


15 
b-Jan-19 
“Oct-19 


Be 13:28:36 


wn 


78 7c 
oF 1 
) 
F 
F A 
GF D 
8 6 
ies 
DD Oke 
FB OO0A4 
7 4 
D AF 
8 ee 
o 008 
D 00088 
3; OOBE 
DO 000C1 
11 000C5 
Fe 00C7 ge: 
E8 OOOCC 3$: 
dO B08 
CE 000D 
11 000D6 
DO 00008 4$: 
ci 00D 
8 OO0E 
SF O0O0ES 
FB 00E7 
F2 OOOEC 5$: 
BF OO0FO 
04 ot 
DO OOOF4 6$: 
CE 000F7 
11 oaee 
8 OFC 7 
C Ht 
F2 00103 8$: 
78 00107 9$: 
¢? 0108 
4 0010F 


CONTINUE_THR 

$"ACPSY_READCHK, #1, @#ACPSGB_DATACHK, RO 

#33. RO. =(SP) 

“i S6cGASE) 

AE: SYS$ i 
CB 


Q 
SAVE PRIiv+ 
CTLSGL_P 
e(PTRY 


AX-11 Bliss 
F11X.BUGSRC 


EAD 


(PTR) 


- PTR 


6(PTR) 
SAVE PRIV, 132(PTR) 
ATUS, 2 
pes. ~120(BASE) 
WAIT _FOR_AST 


#0 
-130(BASE) 


FOUND_COUNT, RS 
i, J 


@0(R4), RI 


RO 


ee 

#5, RO, RO 
yer1) 

#1, INVALIDATE 


z= 
we @ 
o- 


i, 4 
-130 (BASE) 


FOUND_COUNT, R1 
#i, J 


$ 
#8, 24(BFRD) 
Bs BFRD 


: 0 
ao(r4s, RO 


. 
. 
- 
e 
. 
. 
. 
- 
. 
. 
. 
e 
. 
a 
. 
e 
- 
o 
7 
o 
. 
o 
. 
o 
7 
. 
. 
° 
7 
o 
. 
. 
7 
e 
. 
° 


ee aD ee ee oe 


VV VIVMIMUIMIUIU 
MR] 30 
e-0 Owflwn—Oo 
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04-005 ae ah oe Pe CEP ete tot et ee ead, > 


. 3 $ } tg ! ROUTINE SERIAL_CACHE : L_JSB NOVALUE = 

3 2 8 1544 1 !44 

; 529 1545 1! 

3 é : 1368 : } FUNCTIONAL DESCRIPTION: 

iva § 1548 1 ! Serialize cache processing by queuing the CORP part of our 
3; 3 1549 1 ! 10 packet onto the AQB queue. Go to sleep if someone else 
; 534 1229 1! is already there. 

: ta 1 2] 1! 

; > 15 ¢ 1 !-- 

: 232 1882 ! BEGIN 

; 539 1555 

; 540 1328 BIND_COMMON; 

: 541 155 

3 246 1558 EXTERNAL 

; a7 1322 PMSSGL_XQPCACHEWAIT : ACDRESSING_MOCE (GENERAL); 
; «4545 1561 BUILTIN 

; 546 1206 TESTBITSS, 

; 547 156 INSQUE; 

: 548 1564 

; 549 1565 LOCAL 

s 330 1566 AQB : REF BBLOCK, 

s $5) 1567 ACB : REF BBLOCK; 

: 22¢ 1568 

; 55 1569 2 AQB = .CURRENT_VCB CVCBSL_AQB); 

: 554 1570 

; 555 1571 IF (ACB = .ACB_ADDR) EQL 0 

; 556 1376 THEN 

5 Sor 157 BEGIN 

; 558 1574 ACB_ADDR = (ACB = .JO_PACKET + IRPSC_CDRP); 

; 559 1575 ACB CACBSL_PID) = .CTCSGL_PCB CPCBSL_PID); 

; 560 1576 ACB CACBSL-AST) = CONTINUE_THREAD; 

; 561 1577 ACB LACBSL_ASTPRM] = .BASE; 

: 36¢ 1578 ACB CACBSB_RMOD] = PSLS$C_KERNEL + ACBSM_NODELETE; 
; 56 1579 ACB CACB$B8_TYPE) = DYNSC~ACB; 

3; 564 1580 ACB CACB$W_SIZEJ = 0; 

; 565 1581 END; 

; 566 1286 

3 S67 158 IF INSQUE (.JO_PACKET, .AQB CAQB$L_ACPQBL]) 

; 568 1584 

3 $9 1585 RETURN 

: 0 15 ELSE 

: 571 138 BEGIN 

: 276 1588 PMSSGL_XQPCACHEWAIT = .PMSS$GL_XQPCACHEWAIT + 1; 
; 2 1589 WAIT_FOR_AST (); 

; 574 1590 3 

s S$7$ 1591 ¢ 

s 3% 1592 END; 


.EXTRN PMSSGL_XQPCACHEWAIT 
52 DD 00000 SERIAL_CACHE: 


RDBLOK 
v04-005 


; Routine Size: 


50 


80 bytes, 


90 
C8 
51 
Oc Ad 
10 Ad 
14 ag 
08 
04 
0000G CF 


Routine Base: 


98 AA 00 00002 

1 AO 0D 8 Be 

: 28 i 0 OF 

somos FB 
000000006 00 4 ahd 
0 Al 3 4 

0000G CF 3 0029 

A 00 0002F 

20020000 8F 00 $° 3 
oH Ste 

000000006 00 06 2049 
00 FB 0004 

04 BA 00040 

05 0004F 


SCODES + 0286 


2 


Jan-1985 1 5 AX-11 Bliss-32 V4.0-742 
-0¢t-1984 18: £9: 3 tix Bog RCIRDBLOK.B32;1 
PUSHL R? 
MOVL 04 (BASE) RO 
MOVL 191 RO), AQ 
MOVL = StBASED ACB 
BNEQ ‘18 
ADDL3 #96, -112(BASE), ACB 
MOVL ACB, -56(BASE) 
MOVL cit Sct CB, RI 
MOVL 6(R1), 12¢ACB) 
MOVAB CONTING THREAD, 16(ACB) 
MOVL BASE ACB) 
MOVL = #5 b01984 8(ACB) 
1$: INSQuE ait (BASES, @4(AQB) 
INCL PMSSGL KOPCACHEWAIT 
CALLS #0. FOR_AST 
2$: POPR 
RSB 


Bete Ge Se Se Ge Ge Se Se Ge Ge Ge Ge Fe FS. Ge Ge Ge 
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-Jan-1985 18:20:35 AX¥-11 Bliss-32 V4.0-742 
gng2n713 4 18:39:33 F11X.BUGSRCIRDBLOK.B32°1 


GLOBAL ROUTINE FIND_BUFFER (LBN, TYPE, COUNT, FOUND_COUNT) : L_NORM = 


'e¢ 
' 


FUNCTIONAL DESCRIPTION: 


i CALLING SEQUENCE: 
i INPUT PARAMETERS: 
i IMPLICIT INPUTS: 

i QUTPUT PARAMETERS: 
i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
index of first buffer found 


i SIDE EFFECTS: 
LRU List relinked, buffers may be written 


PED IVIVSVSVSVSUSVSI SVS 
O © 0000009090000 00 00 0000 ~y 
FUN SK OVONAUSWN—OO 


oo 
DOOCOCCOCOOCSCOOOOCOO 


COON VE WIN O ODA UE UN $9 OONAUE WW HO OONAULS WN OO OONOUSWWR $C OONOULW 


TYPE : BYTE; 
BIND_COMMON; 
EXTERNAL 


oon 


ACP$GB_MAXREAD : BYTE ADDRESSING_MODE (ABSOLUTE), 

PMS$GL_F ILHDR_HI : ADDRESSING_MODE (ABSOLUTE) 

PMSS$GL_FILHDR_MI : ADDRESSING_MODE (ABSOLUTE), 
S$GL_DIR : ADDRE G_MODE (ABSOLUT 


: AD 
PMSS$GL_STORAGMAP _ : ADDRESSING_MODE (ABSOLUTE), 
PMS$GL_STORAGMAP _ . + ADDRESSING_MODE (ABSOLUTE); 
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7003 !CDS0016 1990 
3004 !CDS0016 1651 «FOUND COUNT = 1; 
: 672-40 1626 
: Of 165 POOL = .POOL_TABLE C.TYPE]; 
3; 674 1654 
3 of? 1922 PIDINDX = .CTLSGL_PCB CPCBSL_PID]; 
s 6r7 1889 ! Validate that we have a lockbasis for the buffer type requested. 
; 678 1658 : We deliberately do not include DIRINDX_TYPE buffers here, because 
; 67 1928 they are not hashed at all and are not handled with this routine. 
; 681 1661 
: 68 1006 CASE .TYPE FROM 0 TO 5S OF 
; 68 166 
3: 684 1664 CHEADER_TYPE, DATA_TYPE): 
> 685 1665 BEGIN 
; 686 1666 ; 
; 687 1667 IF_ .CURR_LCKINDX EQL 0 
: 688 1668 3 TH 
3 red 1999 3 BUG_CHECK (XQPERR, ‘no current lock index lock basis'); 
; «4691 1671 3 LOCKBASIS = .LB_BASIS C.CURR_LCKINDX); 
; 692 lore 2 END; 
; 693 1673 2 
: 694 1674 COIRECTORY_TYPE): 
3; 695 1675 N 
; 696 1676 IF .DIR_LCKINDX EQL 0 
; 697 1677 THEN : 
; 698 1678 3 BUG_CHECK (XQPERR, "No dir lock basis"); 
; 699 1679 3 
; 700 1680 3 LOCKBASIS = .LB_BASIS C.DIR_LCKINDX); 
: 701 1681 2 END; 
3; 702 1086 2 
3; 703 1683 2 CINDEX_TYPE, BITMAP_TYPE, QUOTA _TYPE): 
3; 704 1684 2 IF (LOCKBASIS = .LB_BASIS (03) Ear 0 
: 705 1685 2 HEN ; 
; 706 1686 2 BUG_CHECK (XQPERR, ‘no allocation lock for lock basis"); 
; 707 1687 2 
: 708 1688 2 COUTRANGE): 
; 709 1689 BUG_CHECK (BADBUFTYP, ‘Bad buffer type code’); 
3; 710 1690 
ee a 1691 TES; 
; ar 1036 
3; (71 169 ! Retrieve the lock basis and current buffer sequence number. The 
3; «716 1694 !' Lock basis is the same as used for the synchronization lock, and 
3; «715 1695 ! the sequence number was retrieved from the value block of that lock 
; 716 1696 ! when it was raised to synchronize this operation. t 
; ne + o44 The appropriate lock depends on the type of buffer being requested. 
3; 719 16n7 
; 20 1700 CASE .TYPE FROM 0 TO 5 OF 
3; 721 1701 
5 136 1786 CHEADER_TYPE): 
; ose 1788 IF .LB_HDRSEQ C.CURR_LCKINDX] EQL 0 
3 456 1706 LB_HDRSEQ C.CURR_LCKINDX] = 1; 
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: 727 1707 

: 728 1708 SEQNUM = .LB_HDRSEQ C.CURR_LCKINDX); 
BO oe 

; 23 171] CDIRECTORY_TYPE): 

; f 5 1218 IF -LB_DATASEQ C.DIR_LCKINDX] EQL 0 

: , 5 1215 LB_DATASEQ C.DIR_LCKINDX) = 1; 

: 737 1719 SEQNUM = .LB_DATASEQ [.DIR_LCKINDX); 

mo it a 

: 740 173 (DATA_TYPE): 

: 2 7 : IF .LB_DATASEQ C.CURR_LCKINDX] EQL 0 

: Pak 1794 LB_DATASEQ C.CURR_LCKINDX) = 1; 

: 746 1726 SEQNUM = .LB_DATASEQ C.CURR_LCKINDX]; 

: ate 1358 § — 

: 749 VO¥ 2! The storage bitmap, inder file bitmap, and quota file data blocks 
; 750 1730 ! get their sequence numbers from the volume lock value block. 
e~ 3>? 1731 : Check with the code in allocation_iock and allocation_unlock before 
3 Pg 1736 ! changing any of this. 

: O87 ae S| 

: 135 1735 CBITMAP_TYPE): 

: 037 1737 IF .(LB_DATASEQ [0)<0,16,0> EQL 0 

: 39 1739 3 (LB_DATASEQ (0})<0,16,0> = 1; 

: 761 1741 : SEQNUM = .(LB_DATASEQ [0])<0,16,0>; 

: eS 1708 § ses: 

: 764 1746 CINDEX_ TYPE): 

; 766 1746 IF .(LB_DATASEQ [0])<16,16,0> EQL 0 

: 768 1748 (LB_DATASEQ (03)<16,16,0> = 1; 

: 770 1750 SEQNUM = .(LB_DATASEQ [0])<16,16,0>; 

; ag Ha} END; 

: ah 1738 CouoTA TYPE): 

; 075 1755 SEQNUM = .SAVE_VC_FLAGS<1,15,0>; 

: 77 1789 IF .SFQNUM EQL 0 

: HS 1786 me 

: 780 1760 4 SEQNUM = .SEQNUM + 1; 

> 781 1761 4 SAVE_VC_FLAGS<1,15,0> = .SEQNUM; 

3; 78 1706 ; END; 

s; 176 
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784 1764 END; 
785 1765 
786 1708 TES; 
787 176 
1 !CDS0016 1768 ! Search the buffer descriptors for the desired LON. This is in 
g 'CDS0016 1792 : @ large loop because if the buffer is currently in use by another 
'Cd$0016 1770 : process, we have a lockbasis mismatch and will need to go around 
0C4 !CDS0016 =:1771 ! again. 
005 !CDS0016 ile : Serialize on the cache interlock at this point as we are now searching 
006 !CdS0016 177 ! and modifying shared structures. 
007 !CDS0016 1774 ! 
008 !CDS0016 1775 
009 !CDSO0016 1776 SERIAL_CACHE (); 
0 !CDS0016 1777 
1 !CDS0016 §=1778 dO 
¢ 'CDS0016 1779 LOOKUP: 
'CDS0016 1780 BEGIN 
4 !CdS0016 1781 
5 !CD$0016 1786 LOOKUP_AGAIN = 0; 
6 !€DS0016 17 : : 
7 !CDS0016 =: 11784 : If this is for LBN = -1, we just want a buffer. Don't Look for it, 
8 'CDSO016 1785 ! because other processes may be doing this also, and we don't want 
9 'CDSO016 1786 ! to find theirs. 
0 !CDS0016 1787 : 
1 !CDS0016 §=1788 
§ 'CDS0016 1789 IF (.LBN+1) EQL 0 
'CdS0016 1790 THEN 
4 !Cd0S0016 1791 INDX = 0 
5 !CDS0016 1736 ELSE 
6 !CDS0016 1793 4 BEGIN 
7 'CpS0016 §=61794 «4 : 
8 :COSO016 §=—1795 4 | Get initial index by hashing. Follow links, if any, until we 
9 !C0S0016 § 1796 4 ! get match on both LON and UCB, or we run out of Links to follow. 
O !cpS0O016 1797 4! 
1 !€0S0016 1798 4 
§ 'CDSO0016 1799 4 INDX = .LOOKUP_LBN (.LBN)<0,16>; 
'CDS0016 1800 4 
'CDS0016 §=6©1801 4 WHILE .INDX NEQ 0 
5 !CDS0016 1306 4 
'Cb$0016 1803 5§ BEGIN 
'CDS0O016 §=61804 =§ 
'CDS0016 ©1805 5§ BFRD = BFRD_ADDR (.INDX); 
'cdS0016 = 1 s] 
0 ED SRO Ie 1 : Determine if this in fact matches on both LBN and UCB. 
bias Ie 
5 'CDS0016 §=©18 10 IF .BFRD CBFRDSL_LBN) EQL .LBN 
4 !Cd0S0016 1811 AND .BFRD CBFRDS$L_UCB] EQL .CURRENT_UCB 
5 !CDS0016 = 1 \¢ HEN 
$ 'CDS9016 =. 181 EXITLOOP 
ispennte 1814 ELS 
8 !'CDS0016 1815 INDX = .BFRD CBFROSW_NXTBFRDJ; 
] ico sRa te 1 1g 4 END; 
0 !CO0S0016 181 END; 
1 !¢pso0o016 = 1 13 
788 181 IF .INDX NEQ 0 
789 1820 THEN 


16 
a -Jan-1985 18:20:35 AX-11 Bliss-32 V4.0-742 Page 22 
Be00S arayobe 13ies3e || Levan eaeeRes a 


v04-005 “Oct-19 : RCJRDBLOK.B32;1 
; 790 1821 

s 791 1 § ! We found a buffer that matches the LBN and UCB desired. 

; 79 3 : It may either be on our in-process queve (curpid will be us), 

3 et, : : or in the general buffer cache. 

: 795 1 

3 re i8 : GOT_ONE: 

; 79 18 8 4 BEGIN 

; 798 1 4 

; 08 \3 ? 2 if -BFRD CBFRDSW_CURPID] NEQ 0 

; 801 + ; 4 If _ .BFRD CBFRDSW_CURPID] EQL .PIDINDX 

: 80 igs, Te 

: 804 1835 4 ! This is a buffer we've already put onto our in-process queue. 

; 805 1836 4 ! Move to the head of the LRU List and return. 
BE: 

: 808 1839 § 

; 809 1840 5 REMQUE (.BFRD, BFRD); 

; 810 1841 5 INSQUE (.BFRD, .BFR_LiST C.POOL, QBLNK)); 

3; «811 1306 5 RELEASE_CACH : 

3 aig ier : arn ~INDX = 

> 814 1845 5 

‘oot tcpsoo1e tees ELSE GIN 

:002 iCDS0016 1848 5 

£008 ‘CDSO016 §=61849 5 ! Set flag to cause us to go around this block again. feet 
2004 !CDS0016 1850 5 ! Note that the resolve_ambiguity routine will release the cache serialization 
3005 ico eeeie 1883 : lock while we are stalled. It is reacquired when we are awakened. 

[007 (CDS0016 «= 1853 5 

£68 natittts 1854 5 LOOKUP_AGAIN = 1; 

3009 !CDS0016 1855 5 RESOLVE_AMBIGUITY (); 

37010 'CDSO0016 1856 5 LEAVE LOOKUP; 

abe OS ead 1320 7 END; 

: 819 1859 4 

3 oo 1399 ? : Verify lock basis and that things are in the right pool. 

; B22 186@ 4 | Blocks in the data block pool may legitimately have the wrong 

; te 1863 4 ! lockbasis as a result of having been deallocated to free storage 

3 ase 1398 ‘ and reallocated to another file. 

: 826 1866 4 | File headers may legitimately have the wrong lockbasis if they 

; 827 1867 4 ! have been deleted and are being treated as primary headers when 

; 828 1868 4 ! they used to be extension headers or vice-versa. This will 

; a6? 1869 4 ! force a read from disk. Further checks will be made in read_header 
3 B30 1379 ? : against the actual header to see if things really make sense. 

: 336 1876 4 | Blocks can also cross pools (rare in practice) if directory or quota 
3 3 137 4 ! file data blocks, for example, are deallocated to free storage, and 
3 fs 1875 ? the index file is then extended, causing them to become file headers. 
: 1876 4 } Ll cases, unhook and return the bfrd to destroy the association 
3 B39 1899 4! 19 this butter with the lock basis and lock that 4 backing it. 


16 
RDBLOK =Jan-1985 18:20:35  VAX-11 Bliss-32 v4.0-742 Page 23 
04-005 eas a a a A at ha eal i 


; 838 1878 4! 

; 839 1879 4 

; 840 1880 4 IF .BFRD CBFRDSL Egcxpasi gs NEQ .LOCKBASIS 

; «841 1881 4 OR .BFRD CBFRD$V_POOL) NEQ .POOL 

; Beg Isat 4 HEN 

; «84 1883 4 IF .POOL EQL 1 

> 844 1884 4 OR .TYPE EQL HEADER_TYPE 

; 845 1885 4 OR .BFRD CBFRD$V_POOL) EQL 1 

> 846 1886 4 

; 847 1887 2 BEGIN 

; 848 1888 

; 849 1889 5 UNHOOK _BFRD ( 

; 850 1890 5 ((.BFRD = .CACHE_HDR CF11BC$L_BFRDBAS])/BFRDSS_BFRDDEF) + 1, 
; 851 1891 5 -BFRD); 

3 S26 1936 5 

; 8 1893 5 RETURN_BFRD (.BFRD); 

; 854 1894 5 

> 855 1895 5 LEAVE GOT_ONE; 

: 856 1896 5 

> 857 1897 4 LSE 

; 328 1938 2 BUG_CHECK (XQPERR, ‘invalid lock basis"); 

: 860 1900 4 ! This was not on our in-process queue. We'll need to account for the 
; 861 1901 4 ! fact that we are taking another buffer out of general circulation for 
; 1308 4 ! this operation. 

; 86 1903 4! 

; 864 1904 4 

; 865 1905 4 IF .BFRS_USED C.POOLJ EQL .BFR_CREDITS C.POOL) 

: 866 1906 4 THEN 

: 867 1907 5 BEGIN 

: ye) 1306 : BIND POOLAVAIL = CACHE_HDR CF11BCS$L_POOLAVAIL] + .POOL*4; 
:001_ !cps0d020 1910 5 IF .POOLAVAIL GTR 6 

3; 871-1 1911 § THEN 

3 667, 1316 6 BEGIN 

: 87 191 6 POOLAVAIL = .POOLAVAIL - 1; 

: 874 1914 6 BFR_CREDITS {.POOL] = .BFR_CREDITS C.POOL] + 1; 

3; 875 1915 6 END 

;. 876 1916 5§ ELSE 

2001 !CDSO020 1917 5 

2006 'CDS0020 §=6—.1918 5 ! FREE_ONE returns true if the cache interlock was released (to write 
2003 !CDS0O020 ©1919 5 ! a dirty buffer). In that case, the bfrd we located may not bs free, 
2008 493 0 13 ? 5 } or even present, anymore. Loop back to look it up all over again. 
2008 'CDS o 19 § ; 

:007 !cDS00 19 5 IF FREE_ONE (.POOL) 

2008 'cps0d020 61924 5 THEN 

3 'cps0020 1925 6 BEGIN « 

3010 !Cos 1926 6 LOOKUP_AGAIN = 1; 

3011 !CoS 1927 3 LEAVE COOKUP; 

Ole ‘CdS 1928 END; 

761 'COS 1929 4 END; 

3014 !CdS 1930 4 

3015 !Cos 1931 4 ! Claim this bfrd for our process. oe 

018 ‘CDS 19 ¢ 4! , 

3017 !CoS 19 4 

3018 !coS0020 1934 4 BFRD CBFRD$W_CURPID] = .PIDINDX; 
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7019 !CDS0020 1935 4 

3020 !CoSs0020 8619 § 4 REMQUE (.BFRD, BFRD); 

3021 scRSO0 19 4 INSQUE (.BFRD A ee C.POOL, QBLNK)); 

; B80- 1938 4 — BERS_USED [.POOLJ =".BFRS_USED f.POOL] +°1; 

; 88 1940 4 IF <BFRD CBFRDSL_SEQNUM] NEQ .SEQNUM 

: 884 194¢ 4 BFRD CBFRDSV_VALID] = 0; 

$ B86 1944 4 ! The sequence number will be stored in the BFRD when the buffer is 
; 887 1945 4 ! released back to the cache, otherwise it would be stored here. 

: Bae 1909 

; 898-8 1948 4 RELEASE_CACHE (); 

: 900 1950 4 ! Count finding a valid buffer as a hit, an invalid one as a miss. 
: 901 1951 4 ! We are deliberately not counting hits on buffers already on our 
3; 1336 4 ! in-process List to get a more meaningful hit ratio. 

mo lay 

: 905 1955 4 IF ,BFRD CBFRD$V_VALID] 

: 907 1957 § BEGIN 

; 908 1958 5 PMS_TOT CACHE = .PMS_TOT_CACHE + 1; 

: oye 1323 : CASE -POOL FROM 0 TO°2 OF 

: 911 1961 5 OJ:  PMS$GL_STORAGMAP_HIT = .PMS$SGL_STORAGMAP_HIT + 1; 
: 912 1962 5 1): PMSS$GL_DIRDATA_HIT = .PMSS$GL_DIRDATA_HIT + 1; 

; 913 1963 5 C2]: § PMSSGL-FILHDR_AIT = .PMSSGL_FILHDR_HIT + 1; 

3; 9146 1964 5 TES; 

: $e 1968 2 eset 

F gz 1967 4 CASE .POOL FROM 0 TO 2 OF 

; 919 1969 4 0): PMSSGL_STORAGMAP_MISS = .PMSSGL_STORAGMAP_MISS + 1; 
; 920 1970 4 1): PMS$GL_DIRDATA_MISS = .PMSSGL_DIRDATA_MISS + 1; 

> 921 1971 4 2]:  PMSSGL"FILHDR_AISS = .PMSSGL_FILHDR_MISS + 1; 
Eg he ae 

> 924 1974 4 RETURN .INDX = 1; 

; 3s? 1303 ; END; ! of block GOT_ONE 

:001 !cDS0020 1977 3 END ! of block LOOKUP 

300 opr? 500C0 1378 WHILE .LOOKUP_AGAIN; 

: 928 1980 ! Failed to find a buffer matching desired LBN and UCB in the cache. 
: 389 bs 2 ! Account for us using another buffer from the cache. 

: 33 1988 5 

; 93¢ 1984 FNDCNT = 1; 

F 934 1986 IF .BFRS_USED C.POOL] EQL .BFR_CREDITS C.POOLJ 

: 333 138 THEN GIN 

: $3 1988 BIND POOLAVAIL = CACHE_HDR CF11BCSL_POOLAVAIL] + .POOL*4; 

[001 'cDs0020 ©1991 IF .POOLAVAIL GTR 6 
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: 940-1 1338 3 THEN 

> 941 1993 4 BEGIN 

; 94 1994 4 POOLAVAIL = ,POOLAVAIL = 1: 

: 94 1995 4 BFR_CREDITS €.POOL] = .BFR.CREDITS C.POOL) + 1; 

3; 9446 1996 4 END 

3;. 945 1997 ELSE 

:001 !CDS0020 1228 

300 i EDSOS 199 ! We don't need to check for potential cache interlock release here 
300 tite 000 : because we haven't got a bfrd in hand yet. 

3 'cdS0020 001 ! 

3005 !CpdS0020 Oe 

3 3a6 00 FREE_ONE (.POOL); 

; 94 004 END; 

; 948 005 

: ach 3007 POOL_LRU = CACHE_HDR CF11BC$Q_POOL_LRUJ + .POOL*8; 

: 32) B08 REMQUE (.POOL_LRU CQFLNK], BFRD); 

7001 !cdS0019 2010 BFRS_USED C.POOL] = .BFRS_USED C.POOLJ + 1; 

3002 !CDS0019 011 

; 953 sols IF .COUNT GTRU 1 

: 954 so AND .POOL EQL 1 

; 955 014 THEN 

; 956 2015 BEGIN 

: 32f 2017 LABEL CHK_BFRDS; 

; 959 018 BIND POOLAVAIL = CACHE_HDR CF11BC$L_POOLAVAIL] + 4; ! Pool 1 
; get sou ; BIND POOLCNT = CACHE _HBR CF11BC$W_POOLCNT) : VECTOR C,WORDJ; 
3 2021 3 LOCAL 

; 96 $056 3 P 

: 964 2023 3 TRY_COUNT, 

; 965 2024 3 LO_BFRD, 

: 966 2025 3 H1]_BFRD, 

; 967 2026 3 CUR_BFRD : REF BBLOCK; 

; 968 2027 3 

: 969 2028 3 TRY_COUNT = .ACPS$GB_MAXREAD; 

: 970 k34 ; 

: 971 2030 IF .COUNT LSSU .TRY_COUNT 

: 97 att 3 

3 37 sors 3 TRY_COUNT = .COUNT; 

; 975 2934 LO_BFRD = .CACHE_HDR CF11BCS$L_BFRDBAS) + (.POOLCNT C0)) *BFRDSS_BFRDDEF ; 
s 376 : B82 HI_BFRD = -LO_BFRD + (,POOLCNT C1) *BFROS$S_BFRDDEF; 

; 978 039 DOWN = 0; 

: 979 038 CUR_BFRD = .BFRD; 

; 980 039 

: st Bed WHILE .FNDCNT LSSU .TRY_COUNT 

: 98 beg CHK_BFRDS: 

3: 984 043 4 BEGIN 

; «985 044 4 

3; 986 045 4 IF NOT .DOWN 

; 987 beg 4 THEN 

: 4988 : BEGIN 

: 048 
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; 990 049 CUR_BFRD = .CUR_BFRD + BFRDSS_BFRDDEF; 

: 99 051 IF_.CUR_BFRD GEQA .HI_BFRD 

: 99 038 THEN 

: 994 653 6 BEGIN 

: 995 054 6 CUR_BFRD = .BFRD; 

: 996 055 6 WA = 1; 

: 997 056 6 LEAVE CHK_BFRDS; 

: 998 05 END; 

: 999 058 > 

1084 tar ese’ 

: 1908 61 2 BEGIN 

: 1004 2088 2 CUR_BFRD = .CUR_BFRD - BFRDSS_BFRDDEF; 

> 1006 065 5 IF .CUR_BFRD LSSA .LO_BFRD 

: 1007 066 5 

3 s+ 944 : EXITLOOP; 

ae aR a 

: 1018 071 4 1F CUR BFRD CBFRD$W_CURPID] NEQ 0 

; 1014 3 4 EXITLOOP; 

: 1016 2075 4 ! NOTE: FNDCNT has not been bumped yet. 

: 1018 077 4 INDX = .LOOKUP_LBN ((.LBN + .FNDCNT))<0, 16>; 

: 1020 2079 4 WHILE .INDX NEQ 0 

; 1092 081 5 BEGIN 

> 102 082 5 

: 1024 2083 5 LOCAL TMPBFRD : REF BBLOCK; 

; 1036 085 TMPBFRD = BFRD_ADDR (.INDX); 

; 7 F .TMPBFRD CBFRDSL_LBN) EOL (.LBN + .FNDCNT) 
; 1099 O88 § : AND .TMPBFRD CBFRD$SL_UCB) EQL .CURRENT_UCB 
; 10 089 5 THEN 

| Be nae 

; 19 g 09¢ 5 np, INOX = -TMPBFRD CBFRDSU_NXTBFRD]; 

: 1035 094 4 . 

; 1086 095 4 IF <JNDX NEQ 0 

; 1038 099 4 EXITLOOP; 

[001 !cDS0019 3099 4 IF .BFRS_USED C.POOL] EQL .BFR_CREDITS [.POOL) 
:00¢ '€DS0019 3100 4 T 

7003 'CDS0019 3101 4 IF .POOLAVAIL GTR 4 

7004 '€DS0019 31 é 4 - THEN 

O88 igps 13 182 PECL AVAIL = ,POOLAVAIL - 1; 

3007 i¢bs0019 105 BFR_CREDITS ti}: -BFR_CREDITS (1) + 1; 
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; 'Cp$0019 1 5 END 

08 i€D30019 1 § 4 ELSE 

BIe ieBIe SIBR 7 

: i 110 4 

O18 i€b30019 H : This one is ok. Yank off LRU and count it. 

: i 4 

gia Reet: We 4 BFRS_USED C.POOL] = .BFRS_USED C.POOL] + 1; 
: 105 a 115 4 REMQOE (.CUR_BFRD, CUR_BFRD); 

3 105 116 4 FNDCNT = .FNDCNT + 1; 

3; 1054 117 4 

: 1055 118 4 IF .CUR_BFRD LSSA .BFRD 

3; 1056 119 4 

3; 1057 199 : BFRD = .CUR_BFRD; 

: 1989 13¢ END; ! of block CHK_BFRDS 

: 19st 134 ~FOUND_COUNT = .FNDCNT; 

: 1068 Hy ; } Set BFRD to the highest one in the range found. - 
é 1 : 

: 1966 2199 ; BFRD = .BFRD + (.FNDCNT = 1)*BFRDSS_BFRDDEF; 

: Hee 2131 2 END; ! of consider multi-block read 

: 107e-2 $133 : DECR I FROM (.FNDCNT - 1) TO 0 

HBP BEG scan 

; 1998 $139 3 INDX = ((.BFRD = .CACHE_HDR CF11BCS$L_BFRDBAS])/BFRDSS_BFRDDEF) + 1; 
3; 1077 $136 

3 ine 1% UNHOOK_BFRD (.INDX, .BFRD); 

: 1980 i Insert the new buffer into the hash List using the new LBN. 
; 1988 1c INDX_ADDR = LOOKUP_LBN ((.LBN + .1)); 

3 1084 2145 BFRD~CBFRDSW_NXTBFRD) = .(.INDX_ADDRS<0,16>; 

: 1oRe $128 (. INDX_ADDR)20, 16> = .INDX; 

; 1989 2148 ! Fill im our new or recycled BFRD, as the case may be, and 
; Hi 133 insert it onto the appropriate in-process queue. 
: 151 3 

AGL HAY pry cen ta itt satis 

; 1098 134 BFRD CBFRDSW-CURPID) = .PIDINDX; 

: 1095 136 BFRD {BFRDSL_LOCKBASIS) = .LOCKBASIS; 

a7 15 BFRD CBFRDSL_SEQNUM) = .SEQNUM; 

s 1 138 BFRD CBFRDSB_BTYPE] = .TYPE; 

: 1098 139 INSQUE (.BFRD, .BFR_LIST C.POOL, QBLNK]); 

: 1104 162 BFRD = .BFRD = BFRDSS_SFRDDEF; 
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: 1108 163 
: 110 164 END; 
> 1104 165 
5 1105 166 RELEASE_CACHE (); 
: 1188 Hah 3 (we etente find the butter ta the cach 
8 e n't find the buffer in the cache so count a miss. 
> 1108 169 i 
: W140 in CASE .POOL FROM 0 TO 2 OF 
> 1111 e176 oF 
; Wg 17 PMSSGL_STORAGMAP_MISS = .PMS$GL_STORAGMAP_MISS + 1; 
: 111 e174 1 PMS$GL_DIRDATA_MISS = .PMS$GL_DIRDATA_MIS $$ : 1; 
: 1114 175 23: PMSSGL-FILHDR_MISS = .PMS$GL_FILHOR_MISS + 1; 
: 1115 2176 2 TES: 
: 1116 2177 
: 1117 2178 ; RETURN .INDX = 1; 
: 1118 2179 
: 1119 2180 1 END; 
-EXTRN ACP$GB_MAXREAD, PMS$GL_FILHDR_HIT 
-EXTRN $GL-FILHDR_MISS 
EXTRN PMS$GL-DIRDATA_HIT 
EXTRN PMSS$GL-DIRDATA-MISS 
.EXTRN PMSS$GL-STORAGMAP_HIT 
-EXTRN PMS$GL-STORAGMAP_MISS 
-EXTRN BUGS$_BADBUF TYP 
OBFC 00000 .ENTRY FIND. BUFFER, Save R2,R3,R4,R5,R6,R7,RB.R9,- ; 
SE 20 ¢2 00002 SUBL2 #32, SP ; 
57 EC AA 9E 00005 MOVAB =20(BASE), R7 : 
56 F4 AA YE 00009 MOVAB <=12(BASE). R11 : 
58 FC AA 9E 0000D MOVAB <=4(BASE), RB : 
53 14 AA 9E 00011 MOVAB 20(BASE), R3 ; 
56 0080 CA 9E 00015 VAB 128(BASES, R6 : 
52 OOA8 CA 9E OOOIA MOVAB 18 (BASE), Re ; 
55 00D4 CA 3 001F MOVAB 212(BASE), R ; 
10 BC 01 pO 00024 Ov. oi @F OUND COUNT : 
50 08 AC 9A 00 8 MOVZBL TYPE, R F 
54 FCF9 CF40 9A 00 MOVZBL POOL | TAB T ABLECROJ, POOL : 
51 000000006 00 b9 00 MOVL CTLSGL_ ; 
; 0 Al 2 00 MOVW 96(RI)- PI6INDx : 
05 50 8F D CASEB RO, #0, ; 
0031 001F 0031 ooig 0041 1$: . WORD ¢3-18,~ : 
0031 01 00049 $-1$.- : 
4$-1$,- ; 
7$-1$,- : 
$-1$,- : 
$-1$ ; 
Ferr 004D BUGW : 
: Os a3 guano <BUG$_BADBUF TYP! 4> : 
g 03 a 2s: TSTL (R3) : 
04 1 9 23 3$ : 
FF 5 3 
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<BUGS$_XQPERR! 4> 
Ry V}CPOOLI, (R7) CPOOLI 


8) PCO J, RO 
(RO) 

), ns * 

) 

) 


rage ONE 
LOOKUP_AGAIN 
DX, 28(BFRD) 


R 
6 
R 
R 
8 
0 
1 
0 
1 
7 
I 
B FRD 
§E)CPOOLJ, RO 
a0(RO) 


3 4 
104(R 

(RO 

3 é 

(Ro 

38$ 

POOL 
#1, 

R ; 

47$ 

PID 

(BF 

-48 

(BF 

(RI LJ 

0 » SEQNUM 
rhs 24(BFRD) 


4 $ 
@#PMS$GL_STORAGMAP_HIT 
@#PMS$GL_DIRDATA_HIT 
@#PMSS$GL_FILHDR_HIT 
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B-san- 1982 18: 23: % F11X.BUGSRCIJRDBLOK.B32;1 of a) \ 
OF 00279 REMQUE @0(POOL_LRU), BFRD : 2008 : 

B6 20270 INCW iRt3EP 00.) 3 201 : 

1A 00 BGTRU 3 : 

33 00 86 518: BRw 67$ ; : 

D1 00 28: CMPL POOL, "| : 2013 : 

12 0028¢ BNEG : : 

1 00 BE ADDL3 A108. «R (R , R9 + 2018 : 

1 0296 ADDL + 2019 ; 

A 0029€ mOVieL SRAchSce mixREAD, TRY_COUNT : 2028 ; 

D1 O02A6 CMPL NT, TRY_COUNT ; 20 : 

if 002AB BGEQU : : 

DO OO2AD MOVL COUNT, TRY_COUNT > 2032 : 

pO 00 Bg 53$ MOVL (RB), RO 3 2034 ; 

C 0028 MOVZWL (R11). R : ; 

C4 00288 LL2. #32, RS : : 

9E 00288 MOVAB 924(R0) (R51, LO_BFRD : ; 

3C 002C1 MOVZWL 2(R1), R + 2035 : 

C4 002C5 MULL2 #32, R1 ; : 

9E 002¢8 MOVAB @LO BFRDCR1], HI_BFRD ; : 

AF D4 O0eCE CLRL : 2037 ; 

53 pO 00201 MOVL  BFRD, CUR_BFRD : 2038 F 

0c 32 D1 002D4 54$: CMPL - FNDCNT, TRY_COUNT > 2040 : 
03 1F 00208 BLSSU $ : : 

0093 31 OO2DA Ri : ; 

12 10 AE EB S200 55$:  BLBS : 2065 : 

55 20 CO 002€1 ADDL2 oN R_BFRD : 2049 ; 

18 AE 5 D1 O02E4 CMPL CUR "BERD HI_BFRD : 2051 ; 
le 1F 002E8 RLSSU «58S : ; 

55 53 DO OO2EA MOVL  BFRD, CUR_BFRD > 2056 ; 

10 AE 01 DO 002€D MOVL #1, DOWN : 2055 : 
E1 11 OOOF1 56$: BRB 54 : 056 ; 

55 20 C2 002F3 57$:  SUBL2 #32. FRD > 2063 : 

08 AE 55 D1 002F6 CMPL «CUR "BERD: wt BFRD > 2065 ; 
74 1 OO2FA BLSSU 64 : ; 

1c) 6 AS. s«BS OOQFC Sas: TSTw 28 (CUR _BFRD) > 2071 ; 

6F 12 OOOFF BNEQ 4s ; ; 

50 68 DC 00301 MOVL : 2077 ; 

04 AE 04 BC42 9E 00304 MOVAB SLAC NDCNT), 4(SP) : : 
51 AO 3C O030A MOVZWL R1 : ; 

7E 00 04 AE 01 7A 0030€ EMUL #1, 4(§P), #0, -(SP) : ; 
51 51 BE 51 7B 00314 EDIV. RI. (SP)+. RI. RI : : 
51 D5 00319 TSTL = RV : : 

03 18 00318 BGEQ 59% : ; 

51 5] ce 00310 MNEGL 1, R1 : ; 

56 10 8041 3 00320 59$: MOVZWL a16(RODCR11, INDX : ; 

22 13 00325 60$:  BEQL 625 > 2079 : 

51 6 00 00 37 MOVL > 2085 ; 

50 56 05 78 0032A ASHL as” any RC : : 
50 18 Al CO 0032E ADCL2 24(R 1, 960. : ; 

50 20 (2 00 : SUBL2 #32, : : 

04 AE 08 AO D1 00 CMPL sa TM ml Oo CSP) > 2087 : 
07 12 00 3A BNEQ 61% : ; 

94 AA 0c AO 01 0033c CMPL 12(TMPBFRD), -108(BASE) > 2088 : 
06 13 00341 BEQL $ 4 ; : 

6 1E AO 3C 00343 618 MOVZWL (TMPBFRD), INDX : 2092 : 

DC 11 00347 BRB 60$ > 207 : 
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1)CPOOLJ, (R7)CPOOLI 
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il 


CPOOL] 
BFRD). CUR_BFRD 


UR_BFRD, BFRD 
CUR_BFRD, BFRD 

56$ 

FNDCNT. @F OUND_COUNT 


as CNT, 
~3¢(RO)CBFRDI, BFRD 


ZODADHEBUDSS? Ow 
[9c —-DOPVrORr—FO 


(RB), RO 

24 (RO) BFRD, RO 
1(RO), INDX 

BFRD 

INDX 
#2, UNHOOK_BFRD 
(RB), R 


@ 
Zo 
- 


RELEASE_CACHE 
POOL, #U, # 

9$-6 $.- 

71$-68$ 
@#PMSS$GL_STORAGMAP_MISS 
@#PMSSGL_DIRDATA_MISS 
a#PMSS$GL_FILHDR_MISS 
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50 FF AG YE 0041 ; som MOVAB = =1(R6), RO ; 2178 
04 0041 RET : 2180 


; Routine Size: 1045 bytes, Routine Base: $CODE$ + 0206 


SWANN NWIIWiwinonofnonofoneorfnornor 


EAPO ODNAVSWN ("OD ONAUES WN ODOONOUES WN 


; Routine Size: 


; 


1 
-Jan- 
-O0ct- 


1985 18:20:35 AX-11 Bliss-32 V4.0=742 
1984 1 29:3 UF1IX-BUGSRCIRDBLOK.85251 


Wake up 


=5) NOPRESERVE (3,4) 


> LUSCHSQAST ADDRESSING_MODE (ABSOLUTE); 


-EXTRN SCHSQAST 


Save R2,R3,R4,R5 


ADDL3 #96, @AQB, ACB 
m*) #2, PIN 


VL L 
JSB aa#SCHSQAST 

BLBS RO, 1$ 

BUGW 

WORD <BUGS_XQPERR! 4> 


sie } ROUTINE WAKE_WAITER (AQB) : NOVALUE = 
2188 1 lee 

2184 1! 

ake | FUNCTIONAL DESCRIPTION: 

187 1 | Remove ourself from cache processin . 
sige : } the next process if queue eS not =a 
4h He Be 

19 BEGIN 

49 
2138 MAP 
$192 AQB : REF BBLOCK; 

2197 § LINKAGE 
2198 2 L-SCHSQAST = JSB : GLOBAL (PINCL=2, ACB 
3199 é NOTUSED (6,7,8,9,10,11); 
2201 2 GLOBAL REGISTER 
$508 § PINCL = 2, 
ssa vie 
2205 2 EXTERNAL ROUTINE 
$509 § SCHSQAST 
2208 2 ACB = .AQB CAQBSL_ACPOQFL] + IRPSC_CDRP; ! first waiter's ACB 
2209 2 PINCL = PRI$_RESAUL; 
$si0 § id ee SCHS$QAST () 
$$ig § BUG_CHECK (XQPERR, ‘Failed to queue ast‘); 
2214 1 END; 
003C 00000 UAEE OAS TER: 
55 04 BC 00000060 8F ci 00002 A 
02 DO 00008 
00000000G 9F 16 4 
04 50 €8 00014 
FEFF 00017 
0000* Bete 
04 00018 1$: 
28 bytes, Routine Base: S$CODE$ + O06&B 


rmororrorurorrg 


ee ee eee eee ee 
ee et ee et ak a ed ed a ed dd 
00090909 INI NI Ss INN NS SIOA OOOO AAO OUI 
FUN SO OONOUSWN (“OD ONG VPWN OOOO 
B&H EAA AANWA AAI AIIPOPINIPOPI PONIPYDNN S S 
WN CO OCONAUES HN OOONAUES WN 0 OONOUW 


PODIPOPIPININYINIPYPNGSTUPINIPINININIPYNINININPINPUPPPPonory 


MOPMIPOPEPE NOP PURO PoRoPonopononoporonony 


SeSe Ge ee Se G6 Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge te 


; Routine Size: 


GLOBAL ROUTINE RELEASE_CACHE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1% 
: 
é 
5 
2 
1 
é 
1 


! FUNCTIONAL DESCRIPTION: 


i Remove ourself from cache processing queue. 
the next process if queue is not empty. 


AQB = .CURRENT_VCB CVCBSL_AQB); 
IF REMQUE (.AQB CQFLNK], DUMMY) 
WAKE_WAITER (.AQB); 


AF 


Routine Base: 


Dw 
™m 


: L_JSB NOVALUE = 


! queue not empty 


R2 
~104(BASE), RO 
6(RO QB 


R 
#1, #2, RO, RO 
1$ 


AQB 
#1, WAKE_WAITER 
#*MCR2> 


ooange -moo"o 
Vrwonrwmon 


SCODES + 0707 


1 
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3001 !CDS0016 44 1 ROUTINE RESOLVE_AMBIGUITY : L_NORM NOVALUE = 
7002 !CDS0016 45 1 
3005 !CDS0016 ‘8 1 e+ 
3004 !CDS0016 47 1! 
3005 !CDS0016 re 1 ! FUNCTIONAL DESCRIPTION: 
O08 'CDS0016 49 1! 
3007 !CdDS0016 50 1 ! This routine stalls this thread on the ambiguity queue. It will 
2008 !CdS0016 31 1 ! be awakened when the next thread coup etys. That does not mean 
2004 coROUIO 25 : the ambiguity is resolved yet, but that it should be checked. 
3 1197 $ 2 1 !<< 
; 1198 - 
3: 1199 2$ BEGIN 
: 1200 5 
; 1201 58 BIND_COMMON; 
; 3 o 59 
;.120 60 LOCAL 
3001 !cdDS0016 261 AQB : REF BBLOCK; 
3 006 'CDS0016 $508 § 
3003 !CDSO016 226 AQB = .CURRENT_VCB CVCBS$L_AQB]; 
3004 'CDS0016 2264 2 ea 
2005 :CDSO0016 2265 2 ! The cache serialization interlock is held coming into this routine. : 
3006 !CDS0016 5566 e } 
3007 !CDS0016 394 2 F ; F 
2008 :CDSOO16 §=2268 42 ! Insert the acb onto the head of cache serialization queue. This _ 
“009 :CDSO016 §=2269 2 ! allows us to remove the irp from the head of the queue (where it is 
3010 :CDS0016 §=2270 2 ! now) without releasing ownership of that queue yet. 
3011 !CdDSO016) §=2271 2! 
Oe 'CDS0016 $6 2 
3013 !CDSO016 § 2273 2 INSQUE (.ACB_ADDR, AQB CAQBSL_ACPOFL)); 
3014 !CDS0016 274 § 
3015 'CDSO0016 2275 2 REMQUE (.1O_PACKET, I0_PACKET); 
3016 !CdDSO0016 = 2 16 
3017 !CDS0016 = 2 : The ambiguity queue is not initialized by MOUNT (setup_cache) as 
3018 !CDSOG16 2278 ! others are, so check for that now. 
3019 !CDS0016 279 : 
3020 !CDS0016 280 
3021 !CDS0016 281 IF .CACHE_HDR CF11IBCSL_AMBIGGFL] EQL 0 | 
: 'CDS0016 see THEN 
30235 !CDS0016 §8©228 GIN 
3024 !CDS0016 284 CACHE _HDR CF1IBCSL_AMBIGQFL] = CACHE_HOR CF11BCSL_AMBIGOFL]; 
3025 !CDS0016 285 CACHE _HDR CF11IBCSL_AMBIGOBL] = CACHE_HDR CF11BCSL_AMBIGOFLJ; 
3026 !CDS0016 $86 H 
06 'CDSC016 SS : 
26 8 !CDS0016 8 ! Put us on the ambiguity queue. 
3029 !CDS0016 $82 ; 
3030 !CDS0016 90 
3031 !CDS0016 291 INSQUE (.JO_PACKET, .CACHE_HDR CF11BC$L_AMBIGQBL)); 
20% jepennte 3 ? 
3035 !CDS0016 9 : Releasing the cache will remove our temp entry (the acb), leaving us 
10% iepeanie 94 : on the ambiguity queve with our irp, while we await awakening. 
Be IEBEIE 388s 
O39 i epsObtG 3 RELEASE_CACHE (); 
2038 'CDS0016 98 
7039 'CDS0016 99 2 WAIT_FOR_AST (); 
3040 !CDS0016 00 
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3041 !CDS0016 2301 1 END; ! of routine resolve_ambiguity 


000C 00000 RESOLVE at wal 


Save R2,R3 
50 98 AA D0 00002 MOVL = 104 (BASE), RO 
50 19 AO D0 00006 MOVL  16(RO), AQB 
60 C8 BA OE OOODA INSQUE @-56(BASE), (AQB) 
90 AA 90 BA OF 0000 REMQUE @-112(BASES, -112(BASE) 
50 FC AA 00 0001 MOVL  =4(BASE), RO 
50 0080 co i 001 MOVAB 128(R0), RO 
60 D Ooic TSTL (RO) 
OE 12 0001 BNEQ =s«1$ 
60 D0 0002 MOVL RO, (RO) 
50 AA 00 0002 MOVL  =4(BASE), RO 
0084 0 0080 CO 9E 00027 MOVAB 128(R0), 132(RO) 
50 AA 00 O00¢E 1$: MOVL  =4(BASES, RO 
0084 00 BA OF 00032 INSQUE @-112(BASE), @132(RO) 
A6 10 00038 3SBB ELEASE_CACHE 
00006 CF 00 FB O003A CALLS #0, WAIT_FOR_AST 
04 0003F RET 
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GLOBAL ROUTINE GET_REQD_BFR_CREDITS : L_NORM NOVALUE = 
lee 
{ 


! FUNCTIONAL DESCRIPTION: 


: Acguire minimum buffer credits so that this operation may proceed. 
! Wait for their availability if necessary. 

! Initialize the ees cell CACHE_HOR, primarily used by the buffer 
management routines. 


AX-11 Bliss=32 V4.0-742 
F11X.BUGSRCIRDBLOK.B32;1 


BEGIN 
BIND_COMMON; 


LOCAL 
AQB : REF BBLOCK, 
REQD; 


AQB = .CURRENT_VCB CVCBS$L_AQB); 
CACHE_HDR = .AQB CAQBSL_BUF CACHE); 
SERIAL_CACHE (); 
BEGIN 
BIND 
POOLAVAIL = CACHE_HDR CF11BCS$L_POOLAVAIL] : VECTOR, 
POOL _WAITQ = CACHE_HDR CF11BC$O_POOL_WAITQ) : BLOCKVECTOR C,8,BYTE): 
DECR POOL FROM 3 T0 0 
BEGIN 
The minimal buffer requirements are: 
1 for storage bitmap blocks (pool 0) 
¢ for directory data blocks (pool 1) 
1 


for file headers (pool 2) 
for directory index (pool 3) 


REQD = .POOL + 1; 

IF .POOL EQL 3 

THEN 
REQD = 1; 

IF (POOLAVAIL C.POOL) = .POOLAVAIL C.POOL) = .REQD) LSS 0 
BEGIN 

! Insert our ACB temporarily at the head of the queue. Then when 


: we pull our irp off of it to put on the wait queue, the cache interlock 
: queue will not be left empty until we do our release_cache and 
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RO 
vc 
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v04=005 -0¢t-1984 1 F11X.BUGSRCIRDBLOK.B32;1 (10) 
: 1243 59 ' at that point pull off our temp acb entry. 
Has Be phekrree sangeet 
: 1246 6¢ INSQUE (.ACB_ADDR, AQB CAQBSL_ACPQFL]); 
3: 1247 65 5 REMQUE (.10_PACKEf, 10_PA : ! take us out of cache queue 
: 1248 64 5 INSQUE (.IO-PACKET, .POOL_WAITO C.POOL, QBLNKJ); ! into pool queue 
: 1249 5 5 RELEASE _CACRE (); 
: 1250 66 § WAIT_FOR_AST (); 
> 1251 67 § 
; | 2¢ 68 3 IF .AQB CAQBSL_ACPOQFLJ NEQ .10_PACKET 
: He 370 2 BUG_CHECK (XQPERR, ‘messed up cache interlock queue-'); 
: 1256 $37¢ 4 END: 
+ 1257 937 4 
: 1258 374 4 BFR_CREDITS C.POOL] = .REQD; 
> 1259 : 75 4 
: 1260 376 3 END; 
+ 1261 2377 «2 END; ' of BIND 
; 1268 2378 2 
: 126 2379 2 RELEASE_CACHE (); 
> 1264 2380 2 
: 1265 2381 1 END; 
007¢ 00000 -ENTRY GET_REQD_BFR_CREDITS, Save R2.R3,R4,.R5.R6 ; 2302 
50 98 AA D0 00002 MOVL §$-102(BASE), RO : 232 
54 10 AO D0 00006 MOVL  16(RO), AQ : 
FC AA 18 AG p 0000A MOVL 24(AQBS, -4(BASE) : 2325 
FBOD 30 O000F BSBW_ SERIAL_CACHE 3 2307 
55 FC AA 00000068 8F C1 00012 ADDL3 #104, =4(BASE), RS ; 33 1 
56 FC AA 00000048 8F C1 0001B ADDL3 #72, -4(BASE), R6 : 2332 
3¢ 03 00 00024 MOVL #3, POO 3 2334 
5 01 A2 9E 00027 18 MOVAB 1(R2), REQD : 2346 
03 52 D1 00028 CMPL POOL, #3 : 2348 
03 1 999 BNEQ $ : 
53 91 D0 000 MOVL #1, REQD : 3350 
6542 33 : 00 2s: SuBL2 REQD, (RS)CPOOL) : 2352 
64 C8 BA OE 00039 INSQUE @-56(BASE), (AQB) : 362 
90 AA 99 BA OF 005 EMQUE @-112(BASES, -112(BASE) : 236 
50 04 A642 7E MOVAQ 4(R6)CPOOLJ, RO > 236/ 
00 80 BA OF 004 INSQUE @-112(BASE). @0(RO) ; 
FFS1 O94¢ BSBW RELEASE CACHE ; 
0000G CF 00 FB 0004F CALLS #0, WAIT fy AST 3 
90 AA 64 D1 0094 CMPL (AQB), -T12(BASE) ; 
06 13 26 BEQL 3$ 3 
rere 99 A BUGW ; 
000* 0005c¢ -WORD <BUGS_XQPERR!4> : 
EC AAG2 53 B0 0056 3$: MOVW REQD,~-20(BASE)CPOOLI ; 
3 F4 00 SOBGEQ POOL : 
FF3? 30 00 BSBW = RELEASE_CACHE : 
04 00069 RET : 
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GLOBAL ROUTINE RETURN_CREDITS : L_NORM NOVALUE = 
lee 
' 
FUNCTIONAL DESCRIPTION: 
This routine returns the in-process buffer credits to the 
buffer pool. It moves the next waiter in Line to the head 


i 
i 
i 
i 
: Of the cache processing queue, which will cause it to become 
awakened when we release the cache interlock. 

le 


BEGIN 

BIND_COMMON; 

WAITER, 

POOLAVAIL =: REF VECTOR, 
AQB : REF BBLOCK; 
This may be ca.iled multiple times. Check if already returned credits. 
IF .BFR CREDITS (3) EQL 0 
THEN RETURN; 


AQB = .CURRENT_VCB CVCBSL_AQB); 
POOLAVAIL = CATHE_HDR CF1ITBC$L_POOLAVAIL); 


SERIAL_CACHE (); 
pe POOL FROM 3 TO 0 
BEGIN 


BIND 
POOL_WAITQ = CACHE_HDR CF11BC$Q_POOL_WAITQ) + .POOL*8 : BBLOCK; 


IF .BFRS_USED C.POOL] NEQ 0 
BUG_CHECK (XQPERR, ‘buffer use not to zero yet"); 


POOLAVAIL [.POOL] = .POOLAVAIL [.POOL] + .BFR_CREDITS C.POOL]; 
BFR_CREDITS C.POOL) = 0; 


IF .POOL_WAITQ COFLNK) NEQ POOL_WAITQ COFLNK) 
BEGIN 
REMQUE (.POOL_WAITQ COF_NK], WAITER); 
INSQUE (.WAITER, .AQB |LAQBSL_ACPOFLJS; ! insert AFTER us. 


END; 
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: 'CDSO016 §=. 2439s 2: IF .CACHE_HDR CF11BCSL_AMBIGQFL] NEQ 0 
2008 iCDS0016 2440 2 THEN ¥ . 
7003 'CDS0016 2441 BEGIN 
[004 'CDS0016 Ade 
3005 'CDS0016 244 REMQUE (.CACHE_HDR CFT BCS ANB IGOFLI, WAITER); 
: 006 :CDS0016 re INSQUE (.WAITER, .AGB CAQBSC_ACPOFLJ): 
[008 'CDS0016 2446 ; IF_.CACHE_HDR CF11B8CSL_AMBIGQFL] EQL CACHE_HDR CF11BC$L_AMBIGOFL] 
7009 '€DS0016 2447 3 THEN 
[010 'CD$0016 2448 & BEGIN 
:011 'CDS0016 2449 4 CACHE _HDR CF11BCSL_AMBIGQFL) = 0; 
i018 i€DS0016 430 4 CACHE_HDR CF11BCSL-AMBIGOBL) = 0: 
:013 'CDS0016 ©2451 END; 
:014 'CD$0016 436 
3015 'CDS0016 2453 
7016 'CDS0016 2454 2 END; 
:017 'CDS0016 2455 2 
1018 'CDS0016 2456 2 
: 1325 2457 2 RELEASE_CACHE (); 
> 1326 2458 2 
: 1327 2459 1 END; 
0OFC 00000 -ENTRY RETURN_CREDITS, Save R2,R3,R4,R5,R6,R7 : 2382 
56 EC AA 9E 00002 MOVAB -20(BASE), R6 > 2395 
55 FC AA 9E 00006 MOVAB =4(BASE), R5 3 
oe ct ee ae Pe 
SS smoke Ao Be BOG Rau, 3etmuRAShag fer 
52 65 00000068 8F C1 Ooi? ADDL3 #104, (RS), POOLAVAIL t 2611 
FAIS 0 0001F SBW = SERIAL_ CACHE + 2413 
50 0 b0 9002¢ MOVL #3, POOL > 2415 
31 00 B540 ge 999 3 1$: mOVAG 90 (R5)CPooLI, R1 + 2420 
F4 Aaso es 099 : ist 542 (BASE) [POOL] 3 2422 
FEFF 800 BUGW + 2426 
8000" 00 -WORD <BUGS$_XOQPERR!4> 3 
57 6640 3C 00038 2$: MOVZWL (R6)CPOOLJ, R7 + 2426 
6240 57 CO 99 C ADDL2 7, (POOLAVAIL)CPOOL) ; 
6640 B4 046 CLRW = (R6) CPOOL] : 242? 
51 61 D4 0045 cCHPL (Ri), R1 + 2429 
53 00 81 OF Soocs REMQUE @0(R1), WAITER ; 2433 
00 84 63 OF 0004C INSQUE (WAITER), @0(AQB) > 24 
D2 50 F4 29 3$: SOBGEQ POOL, 1$ > 2415 
51 65 D0 90 VL —- (RS). RI + 2439 
51 0080 al 09 906 MOVL 126(R1), R1 : 
53 61 OF 9090 REMGUE (R1), WAITER + 2443 
00 B4 63 5 906 INSQUE (WAITER), @0(AQB) + 2644 
0 6 p 064 MOVL (RS), RO + 2446 
50 0080 CO 9E 00067 MOVAB 128(R0), RO ; 
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50 


50 


126 bytes, Routine Base: 


N 1 
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-0ct-1984 1 
60 D1 0006C CMPL 
09 12 O006F BNEC 
6C D4 00071 CLRL 
65 D0 00073 MOVL 
0084 CO D4 60076 CLRL 
FEBS 30 QOO7A 4$: BSBw 
04 0007D 5$: RET 
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(RO), RO 


132(RO) 
RELEASE_CACHE 
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2 mec GLOBAL ROUTINE WRITE_BLOCK (BUFFER) : L_NORM NOVALUE = 

1 46 lee 

¢ 46 : 

Z tee FUNCTIONAL DESCRIPTION: 

5 i This routine writes the indicated block back to the disk. 


i CALLING SEQUENCE: 


' 
' 
1 
; “ H } WRITE BLOCK (ARG1) 
40 471 !' INPUT PARAMETERS: 
1 4! ARG1: address of block buffer 
rk 474 ' IMPLICIT INPUTS: 
te rif BUFFER DESCRIPTOR ARRAYS 
6 477 ' OUTPUT PARAMETERS: 
347 478 : NONE 
348 479 ! 
$33 480 ! IMPLICIT OUTPUTS: 
50 481 : NONE 
32) sees ' 
2 48 ' ROUTINE VALUE: 
35 484 ‘ NONE 
354 485 ES 
355 2486 ' SIDE EFFECTS: | 
356 2487 ‘ block written 
357 2488 ‘ 
358 2489 Dae 
59 2490 
0 2491 
1 249 
$06 249 
2494 BFRD : REF BBLOCK, E 
Ht 2495 STATUS, ! service status of Q10 call 
5 4 DX; ! index of buffer 


mM 
= 
~o 
“oon 


EXTERNAL 
CLUSGL_CLUB : ADDRESSING_MODE (ABSOLUTE), 
ACPS$SGB_DATACHK : BITVECTOR ADDRESSING MODE (ABSOLUTE); 
' ACP datacheck enable flags 


ooo 


BIND_ COMMON; 


EXTERNAL LITERAL 
ACP$V_WRITECHK =: UNSIGNED (6); ! write check enable flag 


INDX = (.BUFFER = .CACHE_HDR CF11BCSL_BUFBASE])/512 + 1; 
IF_.INDX<0,16> GTRU .CACKE_HDK CF11BC$W_BFRCNT) 
BUG_CHECK (BADBUFADR, ‘out of this cache, man‘); 


SNS 


BFRD = BFRD_ADDR (.INDX); 
! Stuff the UCB of IO_CHANNEL to go where we want. 
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' 
10_CCB CCCBSL_UCB) = .BFRD (BFRDS$L_UCBI; 
BEGIN 
LOCAL 

PTR : REF BBLOCK, 

SAVE _PRIV : VECTOR (4); 
PTR = .CTLSGL_PCB; 

| 
3 


OOG@OcDCD 

OO 
rr vrororororr 
PPA AVIVIAYIVIVY) 


PTR CPCBSW_DIO -PTR CPCB$W_DIOCNT) + 1; 
T R ASTCNT] + 1; 


PRIVJ, PRVS$V_LOG 10) = 
PRIV], PRVS$V_BYPASS) = 1; 


PTR CPHD$Q_PRIVMSK)); 
PTR CPHD$Q~PRIVMSKI]+4); 
_PRIVMSK], PRVS$V_LOG_10] 
-PRIVMSK], PRV$SV_BYPASS) 


.PMS_TOT_WRITE + 1; 


wr 


BBLOCK 


T 
T 
PMS_TOT_WR 
STATUS = $ 


ONTINUE_ THREAD, 


HANNEL 


“WRITELB 
A 
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TELBLK 
CP$GB_DATACHKCACP$V_WRITECHK] 
$61 POSITION (1O$V_DATACHECK)), 


FER, 
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P -BFRD CBFROSL_LBN) 


(PTR data Ba ba ot ) = .SAVE PRIV (2); 
(PTR 
= 


PHDSQ-PRIVMSK]+4) = .SAVE_PRIV (3); 
-CTLSGL_PCB; 


(PTR CPCB$O_PRIV]) = .SAVE PRIV OF 
(PTR CPCBSQ~PRIVJ+4) = .SAVE_PRIV C1); 

END; ! of block defining PTR, SAVE_PRIV 

IF NOT .STATUS 

THEN I0_STATUS = STATUS 

ELSE WATT_FOR_AST(); 


Restore CURRENT_UCB to IO_CHANNEL. 
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10_CCB CCCBSL_UCB) = .CURRENT_UCB; 
IF .10_STATUS 
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: 1443 74 THEN 

3 1444 75 BEGIN 

+ 1445 8 LOCAL 

: 1446 7 CLUSTER, 

3 1467 578 LCKINDX; 

> 1448 144 

3 1008 280 BFRD CBFRDS$V_DIRTY] = 0; 

: 1451 SB ! Now let's find the lock that backs this buffer and bump it's 
: 1026 58 ! sequence number so the rest of the world will know we've noditied 
3; 145 $284 ' this buffer. 

3 eee 585 ! 

> 1455 2586 

: 1456 2587 3 LCKINDX = 0; 

: 1457 segs : 

3: 1458 589 3 dO e 

3 1459 2590 4 BEGIN 

3; 1460 2591 4 

: 1461 $296 4 If .BFRD CBFRDSL_LOCKBASIS] EQL -LB_BASIS C.LCKINDX] 

: 1008 2593 4 THEN 

3; 146 2594 4 EXITLOOP; 

3: 1464 2595 4 

3 1465 2596 4 LCKINDX = .LCKINDX + 1; 

> 1466 2597 & 

: 1467 2598 3 UNTIL .LCKINDX EQL LB_NUM; 

: 1468 2599 3 

: 1469 2600 3 IF_ .LCKINDX EQL LB_NUM 

: 1470 2601 ; H ; ; 

3 1471 se08 BUG_CHECK (XQPERR, ‘no backing lock for dirty buffer"); 
: 1472 266 ; 

: 1473 2604 CLUSTER = 0; 

3: 1474 $00? 3 

: 1475 606 3 IF (BLOCK CCURRENT ue. Cyc, -DEVCHAR2], DEV$V_CLU) 

3 1476 2607 3 AND .CLUSGL_CLUB N 

: 1477 2608 3 N 

: 1478 2609 3 CLUSTER = 1; 

: 1479 2610 3 

; 1480 2611 3 CASE .BFRD CBFRDSB_BTYPE] FROM 0 TO 5 OF 

: 1481 sole ; 

; 1482 261 CHEADER_TYPE): 

: 1483 2614 IF .CLUSTER 

> 1484 $012 N 

3 He oi¢ LB_HDRSEQ C.LCKINDX] = .LB_HDRSEQ C.LCKINDX] + 1; 

: 1288 ath ; COIRECTORY_TYPE, DATA_TYPE): 

3; 1488 2619 IF .CLOSTER 

: 1489 $060 N 

4 res 633 LB_DATASEQ C.LCKINDX] = .LB_DATASEQ C.LCKINDX) + 1; 
: 149 623 CB1TMAP_TYPE): 

: 1438 . (LB- DATASEQ ([0])<0,16,0> = -(LB_DATASEQ (03)<0,16,0> + 1; 
; 1495 6 CINDEX_TYPE): 

: rp : 3 (LB_DATASEQ (0])<16,16,0> = .(LB_DATASEQ (0])<16,16,0> + 1; 
: 1498 36 ; CQUOTA_TYPE): 

: 1499 630 SAVE -VC_FLAGS<1,15,0> = .SAVE_VC_FLAGS<1,15,0> + 1; 
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TES; 
END 
ELSE 
BEGIN 


! clean up will iterate on write failures if the volume is write locked until 
! the best effort clean up has been done. However, if the write error was on the 
storage bitmap, we allocation lock the volume to prevent further damage. 


IF .BFRD CBFRD$V_POOL) EQL 0 ! this is storage bitmap pool 
ne SURFACE_ERROR (.10_STATUS [0]) 
CURRENT_VCB CVCBSV_NOALLOC) = 1; 
INVALIDATE (.BUFFER): 
ERR EXIT (.10_STATUSLO)); 


END; ! end of routine WRITE_BLOCK 


-EXTRN CLUSGL_CLUB, ACPSY_WRITECHK 
-EXTRN BUG$_BADBUF ADR 
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003C¢ 00000 -ENTRY WRITE BLOCK, Save R2,R3.R4,R5 : 2460 
55 000000006 00 i: 00002 MOVAB CTLSGC_PCB, R5 : 
SE 10 C2 00009 SUBL2 #16, §S : 
54 OOAS CA 3 0000c¢ MOV 168(BASE), R4 : 2500 
52 04 AC FC BA C3 00011 SUBL3 @-4(BASE). BUFFER, R2 : 2508 
52 00000200 8F (6 00017 DIVL2 #512, Re : 
52 06 OO01E INCL _—INDX : 
50 FC AA DO 00020 MOVL  =4(BASE), RO + 2510 
16 AO 52 B1 00024 CMPW =—sINDX,  22(R0) ; 
04 18 00008 BLEQU 1$ ; 
FEFF QOODA UG : 2512 
0060* 0002¢ .WORD <BUG$_BADBUFADR!4> : 
50 FC AA DO 00 1$: MOVL -=4(BASE), RO > 2514 
3g 20 C4 000 MULL2 #32, R ; 
5 18 AO CO 0003 ADDL2 24(RO), R2 F 
52 20 ¢ 0039 SUBL2 #32, BFRD : 
FF74 DA Oc A2 00 0002 MOVL 12(BFRD), @-140(BASE) > 251° 
53 65 00 0042 MOVL  CTL$GL_PCB, PTR : 25 $ 
3 AZ B6 0004 INCW 62 (PIRI > 25 
A3 B6 00048 INCW (PTR) > 2528 
6 99 ee. p 0048 va gcoTR) SAVE PRIV > 2509 
0084 ¢ 20000 0 i C8 0005 BISL2  #536871040, 132(PTR) > 25 é 
00000006 9 0 9059 VL CTLSGL_PHD, PTR : 2 
08 AF 63 7D 00060 VO (PTR), ~SAVE_PRIV+8 : 
63 20000080 BF C8 00064 BISL2  #536871040, ~(PTR) > 2537 
OBEC cA BG 068 INCL  2284(BASE) ; 32 9 
— 7C¢ O6F CLRO = = (SP) ; 2552 
43 D4 1 CLRL 0s = (SP) ; 
08 A2 DD 00073 PUSHL  8(BFRD) : 
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50 000000006 9F 9 
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7E 5 


000000006 


0084 (3 

06 

88 AA 

0000G CF 
FF74 


18 A2 
0080 CA40 
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fe 0087 
3 0090 
C9 00094 
dD 00098 
DD O009C 
FB 0009 
70 BRA 
44 OA9 
B7 QOOAC 
B7 QOOAF 
70 0008 
E8 0008 
DO OOOBA 
11 QOOBE 
FB 000CO 
dO 000C5 
DO 000CB 
E9 QOOCE 
8A 00002 
D4 00006 
D1 00008 
13 OO0DF 
D6 000E1 
D1 OO0E3 
12 OO0E6 
D1 OOOES 
12 OOOEB 
FF st 
Ot OOOEF 
D4 O00F1 
DO O00F3 
EO OO0F? 
b OOFB 
13 00101 
DO 00103 
8F 00106 

001 
0011 
E9 oon? 
b6 11A 
ae 
be 01 : 
4 001 $ 

B6 4 
4 00129 
R6 O12A 
4 00120 
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$8: 
4$: 


5$: 


6$: 


7$: 
8$: 


9$: 


10$: 


11$: 
12$: 


51 AX-11 Bliss-32 V4.0-742 
2 18: £9: 2 F11X.BUGSRCJRDBLOK.B32;1 
MOVZWL #512, =(SP) 
Right Bice 
PUSHAB CONTINUE. THREAD 
EXTZV S*ACPS V -WRITECHK, #1, @#ACPSGB_DATACHK, RO 
ASHL #4 
BISL3 ec ee) (5? 
PUSHL | a 
CALLS 
MOVG i Prives, p(BTR) 
MOVL cit SL 
pecu «6 «Seep 
nova SAVE Bn 132(PTR) 
MOV ge -120(BASE) 
CALLS WAIT_FOR 
MOVL “T68KBASE) g-140cBase) 
mee ORI eee 
Rie fe erm 
cAPL T6(BFRD), 128 (BASE) CLCKINDX] 
INCL — LCKINDX 
CPL LCKINDX, rh 
CMPL = LCKINDX, #5 
ue 
«WORD <BUGS$_XQPERR!4> 
CLRL = CLUSTER 
MOVL  -108(BASE), R1 
BLBC  60(R1), 
st KO: 
MOVL #1, CLUSTER 
CRB Sgt 
7 11$-8$,- 
1 $-88.- 
12$-8$.- 
10$-8$.- 
13$-8$ 
BLBC CLUSTER, 18$ 
INCL 148 (BASE) CLCKINDX) 
BLBC CLUSTER, 18$ 
INCL (R4) CLCKINDX) 
INC (R4) 
INCW © 2¢R4) 
RET 
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1(ROS 
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INVALIDATE 
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RO 
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Re VOOM 
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» #15, -92(BASE), RO 
» #1, #15, -92(BASE) 
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GLOBAL ROUTINE CREATE_BLOCK (LBN, COUNT, TYPE) : L_NORM = 

'o4¢ 

1 

FUNCTIONAL DESCRIPTION: 

This routine fabricates block buffer(s) oeorene ne the designated 
block(s). The type code is as for READ_BLOCK and determines the buffer 
pool io be used. 

CALLING SEQUENCE: 

INPUT PARAMETERS: 

! IMPLICIT INPUTS: 

OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
address of buffer 


SIDE EFFECTS: 
buffer zeroed aid recorded as a Stock read 


Sl eh Re Re he Bee eh ed od tt te te et 


BEGIN 

BIND_COMMON ; 

LOCAL 
BUFFER, 
FOUND_COUNT, 
BFRD 
INDXO; 

INDXO = FIND_BUFFER (.LBN, .TYPE, 1, FOUND_COUNT); 

BFRD = .CACHE_HDR CF11BCSL_BFRDBAS] + .INDXO*BFRDS$S_BFRDDEF; 


BUFFER = CACHE HOR CF11BC$L_BUFBASE) + .INDXO*512; 
CHSFILL (0, 5125 . BUFFER); 


IF (.LBN + 1) NEQ 0 
THEN 
BFAD 


: REF BBLOCK, 


BFRD CBFRDSV_DIRTY 
BFRD CBFRDSV~VALID 
END; 

RETURN .BUFFER; 


END; ! end of routine CREATE_BLOCK 
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68 bytes, 
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6E 

04 AC 
18 A6 


Routine Base: 


ba 


OOF 0 
ats 18 

E Dd 000 
01 DD ; ? 

of AC 0D 

4 AC 0d 0000C 
ge FB QOOOF 
0 D 14 
FC AA 17 
05 0018 
18 Al 9 OO1F 
09 78 $ 4 
FC =A ¢ 8 
0 C 00020 

6 000 
01 ¢1 00035 
04 13 0003A 
OC 88 0003C 
57 00 00040 
04 00043 
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CREATE_BLOCK, Save R2,R3,R4,R5,R6,R7 
#4, SP 


#1 
TYPE 


LBN 
#4, FIND BUFFER 


“9 
a-4(BASE). RO, 
#0, (SP), #0, # WF er BUFFER) 


ne LBN, RO 
ay P Me «it 
BUF F RO 
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-0ct-1984 1 
GLOBAL ROUTINE UNHOOK_BFRD (INDXARG, BFRDARG) : L.NORM NOVALUE = 
lee 


' 
FUNCTIONAL DESCRIPTION: 


=32 V6.0-742 p 3 
F11X.BUGSRCIRDBLOK.B32:1 20¢ 423 


< 

@ 

ion 

S SR 
uw 


i 
i 
! This routine extricates a BFRD and its associated BFRL from 
! their hash lookup Lists. It also takes care of the BFRL if 
this was the last reference to it 
ie 


ab 

FUSISISISIVST 
(09 09 CO 09 C9 CO. CD 
srt tty tr her 


The Fey ter of this routine is responsible for clearing or 


rewriting other relevant fields in the BFRD. 


Pp py ee ee ee 


RUN LS Seo 


BEGIN 
BIND_ COMMON; 
EXTERNAL ROUTINE 


DEL_EXTFCB : L_NORM, 
NUKE_HEAD_FCB =: L_NORM NOVALUE; 


LILSvLse 


oo 
on 
SNS 


LOCAL 


PAPAS 


RANVLSS 


BFRD : REF BBLOCK, 
INDX : WORD, 

INDX_ADDR, 
BFRL 


3 


: REF BBLOCK; 


BFRD = .BFRDARG; 
INDX = .INDXARG; 


IF .BFRD CBFRDSV_DIRTY) 

BUG_CHECK (XQPERR, "Should not find dirty buffer"); 
BFRD CBFRDSV_VALID) = 0; 

IF _<BFRD CBFRDSB_GTYPE] EQL DIRINDX_TYPE 


BUFR : REF BBLOCK, 
DIRFCB : REF BBLOCK; 


! DIRINDX_TYPE blocks are not hashed by lbn, and the field is used 
! to point to the directory fcb. 


— = .BFRD CBFRDSL_LBNJ) NEQ 0 
BEGIN 


IF .DIRFCB CFCBSB_TYPE) NEQ DYNSC_FCB 
— -DIRFCB CFCBSL_DIRINDX) EQC 0 


BUG_CHECK (XQPERR, ‘not legit dirfcb'); 
! This will break the association of this directory index buffer 
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v04-005 ets 13:23:33 F11X.BUGSRCIRDBLOK.B32;1 " (14) vo 
>; 1637 766 4 ! from the directory fcb. 
3; 16 : 767 4! 
; 16 768 4 
>; 1640 £68 4 DIRFCB CFCBSL_DIRINDX] = 0; 
; 1641 770 4 
; a 771 4 IF .DIRFCB CFCBSW_REFCNT] EQ. 0 
3 164 ak 4 THEN 
; He: ae Q IF TESTBITSC (DIRFCB CFCB$V_DIRI) 
> 1646 775 4 ! from this point on, because the refcnt was zero, and the DIR 
3; 1647 r78 4 ! flag was set and is now clear, the search_fcb routine will no 
> 1648 777? 4 ! Longer find this fcb, so we are free to deallocate it. 
; 1649 778 4 : Furthermore, because the DIR was set, we know that no search fcb 
3; 1650 779 4 ! had found it at the time we cleared it because search_fcb will 
3; 165% 780 4 ! unconditionally clear it. 
: 1996 781 4! 
; 165 44 & THEN 
> 1654 783 (5 BEGIN 
; 1655 2784 é 
; 1656 $782 : Note that we are under the cache interlock here, and assume that 
3; 1657 786 5 ! the these routines will do nothing that could cause a stall. 
; 1658 e787 5! 
>; 1659 2788 5 
3 1660 $foe 5 DEL_EXTFCB (.DIRFCB); 
: 1661 790 5 NUKE_HEAD_FCB (.DIRFCB); 
: 1908 2791 4&4 END; 
; 166 $736 4 
> 1664 2793 4 BFRD CBFRDS$L_LBN] = 0; 
3 1665 shee 4 E 
> 1666 795 3 END; ! of bfrd$l_lbn (dirfcb pointer) neq zero 
3 1667 2796 3 
>; 1668 2797 END; 
3 1669 2798 
3; 1670 2799 If .BFRD CBFRDSL_LBN) NEQ 0 
3 1671 444 THEN 
; lore 801 ‘ 
3 167 sees : BFRDSL_LBN neq 0 means that this buffer is in the hash lookup List. 
3 1674 $0 $ ! We need to remove it from the List it is currently 
; 1675 804 ! in as we are about to use the same buffer for some other LBN. 
: 1676 $803 : 
3 1677 Hi] 
; 1678 $80 BEGIN 
3; 1679 808 
; 1680 809 INDX_ADDR = LOOKUP_LBN (.BFRD CBFRDSL_LBN)); 
: 1681 810 
3 loge 811 IF _ .(.INDX_ADDR)<0,16> EQL .INDX 
3; 168 aig THEN 
; lone oi3 ae (. INDX_ADDR)<0,16> = .BFRD CBFRDSW_NXTBFRD) 
; % eis 4 BEGIN 
3% 1 4 
3001 i cOS00e8 + 4 INDX_ADDR 
3002 !CDS0020 18 4 = BBLOCK C BFRD_ADDR (.(. INDX_ADDR)<0,16>), BFRDSW_NXTBFRD) 
; a B20 ? UNTIL .(.INDX_ADDR)<0,16> EQL .INDX; 
3; 1691 $f 4 (. INDX_ADDR)<0,16> = .BFRD CBFRDSW_NXTBFRD); 
3 1692 822 3 END; 
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vou=005 beuans|9 2 13:28:38 UTX lebesREiabeL OK ase. 29 14) 
: 1693 END; 


If it had a buff ock hooked up with it, adjust the reference count 


! er | 
! on the lock descriptor, and remove the lock descriptor from its hash 
lookup List if this is the last reference to it. 
IF .BFRD CBFRDSW_BFRLJ NEQ 0 
THEN 
BEGIN 
BFRL = BFRLD_ADDR (.BFRD CBFRDSW_BFRLI); 


BFRL_CBFALSW_REFCNT] = .BFRL CBFRLSW_REFCNT) - 1; 
IF gBFRL BFRLSW_REFCNT) EQL 


BEGIN 


00 03 C9 C9 CD GD C9. C9 CD CD CD CO. CD 
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i] ; 

33 5 

3 3 0 

: : 1 

3 § 

s 3 4 

; : 5 

:1 $ 

3 1 8 

: 1490 wo 

; at got ; If ,BFRL CBFRLSL_LKID] NEQ 0 

:1 ig Bc 5 BEGIN 

; } 13 ote g IF NOT SDEQ (LKID = .BFRL CBFRLSL_LKID)) 

: 1716 2846 5 BUG_CHECK (XQPERR, ‘unexpected lock manager reaction’); 
im HG ~ 

: 1719 849 4 ! Hash on the lockbasis,parlkid pair and scan the List to find the 
: ; $0 Spee : desired bfrl, if necessary. Pull it from the List when located. 
: 172 852 4 

3 1755 Pp 2855 4 INDX_ADDR = LOOKUP_LOCK (.BFRL_CBFRLSL_LCKBASIS), 

: ik S28 ? -BFRL CBFRLSL_PARLKID)); 

: 1766 HH 4 IF _.(.INDX_ADDR)<0,16> EQL .BFRD CBFRDSW_BFRL? 

: 1728 858 4 (. INDX_ADDR)<0,16> = .BFRL CBFRLS$W_NXTBFRLJ 

31729 2859 4 ELS 

: 17 2860 5 BEGIN 

im HBG 

: 1933 oe 5 INDX_ADDR = BBLOCK C BFRLD_ADDR (.(.INDX_ADDR)<0,16>), BFRLSW_NXTBFRLJ 
3 te 3 nee : UNTIL .(TINDX_ADDR)<0,16> EQL [BFRD CBFRDSW_BFRLI; 

: 17 866 5 (. INDX_ADDR)<0,16> = .BFRL CBFRLSW_NXTBFRLJ; 

2: ae es 

: 1739 869 4 BFRL (BFRLSL_LKID) = 0; 

: 1740 870 4 BFRL CBFRLSL_LCKBASIS) = 0; 

: 1761 871 ‘ BFRL CBFRLSL-PARLKID) = 0; 

: 1308 He 4 are CBFRL SY NXTBFRL) = ; CACHE HDR CF11BC$W_FREEBFRLI; 

+ 1764 ar 4 CACHE_HDR CFTIBC$w_FREEBFRL] =".BFRD CBFROSO_BFRLJ; 

te He ~—e 

: 14 ‘ There is no longer a BFRL associated with this BFRD. 

: 1749 79 : 
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6 
-EXTRN DEL EXTFCB, NUKE_HEAD_FCB 


-EXTRN SYSSDEQ 


et-9Be 19:48:3 
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; Routine Size: 


3 
ROBLOK B-san-19 5 18:20:35 AX-11 Bliss-32 V4.0-742 
v04-005 mets H 13:23: 3% YP TIX .BUGSRCIRDBLOK.832¢1 
200) 4C 90020 tH } ROUTINE FREE_ONE (POOL) : L_NORM = 
He BB ds 
; 1oe9 89 : FUNCTIONAL DESCRIPTION: 
: 1708 91 1! This routine tosses a buffer off the in-process List to make room 
; 176 +} 1 ! for a new one. This a happens when we already have used up 
: 1766 93 1 ! the minimum number of buffers for this pool, and there are not 
; 1763 Bae : : enough available in the cache to steal more from it. 
7001 'CDS 1 | ROUTINE VALUE: 
O08 i eDS0030 $99 1} 1- Y cache interlock released and reacquired 
300 BS 9903 898 1! 0 - if cache interlock never released. 
7006 !CbS0020 899 1! 
Wea Be 
; 1798 ay BEGIN 
3 1771 904 BIND_ COMMON; 
; 177 905 
3; 177 hs Loc 
3001 !CDS0020 90 STATUS, 
2 008 '€D$0020 908 INDXO, 
:003 !CDS0020 909 POOL_LRU : REF BBLOCK, 
7004 !CDS0020 910 FREED : REF BBLOCK; 
7005 !CdDS0020 911 
7008 'cd$0020 alg STATUS = 0; 
:007 !CDS0020 91 
:008 !CDS0016 9146 FREED = .BFR_LIST C.POOL, OFLNK); 
:009 'CDS 3 915 
019 cos 9 916 INDXO = (. FREED = .CACHE_HDR CF11BC$L_BFRDBAS]) /BFRDSS_BFRDDEF; 
ots €080090 at If FREED CBFRDSV_DIRTY) 
7013 !cdS0020 91 THEN 
3016 !Cd$0020 920 BEGIN 
7015 !CdS0020 921 RELEASE CACHE (); 
7016 'CDS0020 29 é WRITE BCOCK (,INDXO®512 + .CACHE_HOR CF11BC$L_BUFBASE)); 
37017 !CdS0020 9 SERIAC_CACHE (); 
3018 !CDS0020 924 
3019 !CdS0020 925 STATUS = 1; 
3020 !cdS0020 9 $ 
26 1 ips 0 ; END; 
30 : !CDS 0 $99 : Remove the bfrd out of the List now that it is written. It cannot 
Ose !€D$0020 930 ! be pulled out prior to the possible write because the error path 
6 5 itt , st} from the write will call invalidate, which will also do a remque on it. 
£989 'CDS0020 938 : If a BFRL (lock) has not been associated with this bfrd yet, unhook it 
30 3 'CD$00 934 ! from the hash Lists and completely return it (zero fields, etc). We 
2029 !COSO0 935 ! do not attemot to associate a lock with it now because that logic is 
3030 !CDSOO 9 ! part of the RELEASE LOCKBASIS routine and is done in combination with 
3031 !CDS0020 9 ! dequeueing the synchronization lock. To fabricate a NL lock here without 
6 § pepe 8 g 3 : releasing the synch lock would be a pain and not worth it. 
7034 !CD$S0020 940 ! Also free the buffer entirely if not valid. 
3035 !CDS0020 941 ' 


| 3 
RDBLOK -Jan-1985 18:20:35 AX-11 Bliss-32 V4.0-742 P 9 
v04=005 B-an-t9 eH HM ate e tat mee soe age 43 


3036 !CDS0020 94 ! If there elready is a BFRL with the BFRD, and it is valid, simply pull 
3037 !C€DdS0020 94 : the bfrd from the in-process List and return it to the cache lru, clearing 
30 : 'CDS00 8 944 ' the CURPID field. 

:039 'cdS00 945 2 

2040 !CdS0020 94 ! RETURN_BFRD will fix BFRS_USED, otherwise do it here. 
3041 !CDS0020 94 : 

3 Og 'CDS0020 948 

3045 !CDS0020 949 IF .FREED wer tty phy EQL 0 

3044 !CDS0020 950 OR NOT .FREED LBFRDSV_VALID) 

7045 !€DS0020 951 

£046 'Cd$0020 326 BEGIN 

3047 !CDS00 8 95 UNHOOK_BFRD (.INDXO+1, FREED); 

70468 !CDS00 954 RETURN_BFRD (.FREED); 

3069 !CDS0020 955 END 

37050 !Cd$S0020 956 ELSE 

3051 !cd$0020 957 BEGIN 

038 'Cd$0020 958 

7055 !cdSs0020 959 REMQUE (.FREED, FREED); 

3054 !CD$0020 960 

7055 !CdS0020 961 POOL LRU = CACHE_HDR CF11BC$Q _ POOL_LRU] + .POOL*8; 
7056 !CDS0020 366 INSQUE (.FREED, POOL_LRU CQFLAK)); 

3057 'CDS0020 296 FREED CBFRDS$W_CURPID] = 0; 

:058 !CdS0020 964 BFRS_USED C.POOL] = .BFRS_USED C.POOL] = 1; 

7059 !:Cd$0020 965 2 END; 

3060 !C0S0020 966 § 

:061 !CDS0020 967 RETURN .STATUS 

: 1798-24 2968 2 

:; 1799 69 1 END; 


001C 00000 FREE_ONE: 
.WOR 


0 Save R2,R3,R4 > 2885 
54 D4 00002 CLRL = STATUS > 2912 
50 04 AC 00 00004 OVL POOL 0 > 2914 
CC AAGO 7F 00008 PUSHAQ =52(BASE) (RO) : 
53 9€ pO 0000C VL a@(SP)+, FREED : 
50 FC AA DO O000F MOVL =4(BASE), R : 2916 
50 53 18 Aad C3 00013 SUBL3 24(RO), FREED, RO : 
52 50 20 C7 00018 DIVE _ Rb, I : 
19 18 «AS 02 €1 0001C BBC #2, 24(FREED), 1$ : 2918 
FBAA 0 00 1 BSBW «RELEASE CACHE : $321 
50 52 09 024 ASHL INDRO, : 292? 
51 FC BA pO 90 8 MOVL a4 (BASE), R1 : 
6140 9F 0002C PUSHAB CRO ; 
FCE2 CF 01 FB O02F CALLS #1, WRITE BLOCK : 
F716 3 SBW Ss SERIAL_CACHE ; 933 
54 01 DO 7 MOVL #1, STATUS : 29 
1A OA A 1$: TST 6 (FREED) : 2949 
0 BEQL ; 
12 18 A3 E0 0003F BBS #3, 24(FREED), 3$ ; 2950 
BD 0044 2%: PUSHL FR > 295 
FES? CF 7 2 Pe 9029 chirse 1S ox BFRD : 
50 g BB 0004E MOVL FREED, RO ~ > 2954 


s Routine Size: 


119 bytes, 
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1p 11 
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06 A b0 

FC BAS 3 
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g8 (FREED) 
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' 
FUNCTIONAL DESCRIPTION: 


ALL dirty buffers associated with the 
written to disk previously. 
interlock, and if 
the cache serialization interlock. 


BEGIN 
BIND_COMMON; 
EXTERNAL 
CLUSGL_CLUB 
LOCAL 
LOCKBASIS, 
LKID_ADDR. 
NDX3 
LABEL 
FIXBFRL, 
LBMATCH: 


LKID_ADDR = 0; 

LOCKBASIS = .LB_BASIS C.LCKINDX; 
SERIAL_CACHE (); 

INCR POOL FROM 0 TO 3 


BEGIN 
LOCAL 
QHEAD =: REF BBLOCK, 
BFRL : REF BBLOCK, 
BFRD : REF BBLOCK: 


QHEAD = BFR List C POOL . QFLNK); 
BFRD = .QHEAD COFLNK); 


I = .PFRS_USED C.POOLI; 
UNTIL .I EQL 0 
dO 


NXTBFRD; 


b-an-1985 15:20:35 


GLOBAL ROUTINE RELEASE_LOCKBASIS (LCKINDX) : L_NORM = 


3 


This routine scans in-process buffers and Bre ares them for lowering 
the Synchreni set ten lock associated with L CKBASIS. 


iven LOCKBASIS must have been 


This routine runs under the cache serialization 
a conversion is required, will exit without releasing 


: ADDRESSING_MODE (GENERAL); 
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T= j= 1; 
NXTBFRD = .BFRD CBFRDOSL_QFLI; 


Check this BFRD for LOCKBASIS match. Note that we are scanning an 
in-process List which can only contain buffers from a given volume 
or volume set. Because the LOCKBASIS contains the VN, it is not 
necessary to make a separate check for a volume set match. — 

When the buffer was initiall brougnt into the in-process list, it 
matched correctly on the desired UCB. 


IF ne CBFRDSL_LOCKBASIS) EQL .LOCKBASIS 
LBMATCH: BEGIN 


OCAL 

POOL_LRU : REF BBLOCK; 
IF NOT .BFRD CBFRDSV_VALIDI 
THEN 


INDXO = (.BFRD = .CACHE_HDR CF11BC$L_BFRDBAS])/SFRD$S_BFRDDEF ; 
UNHOOK_BFRD (.INDXO + 1, .BFRD); 
RETURN_BFRD (.BFRD); 
LEAVE LBMATCH; 
END; 
This is a valid buffer to be returned to the cache. 
FIXBFRL: BEGIN 
LOCAL 
LBINDX 
PARLKID 
IF .BFRD CBFRDSV_DIRTY) 
BUG_CHECK (XQPERR, ‘should not have dirty buffers now'); 
PARLKID = .(IF .CURRENT VCB CVCBSW_RVN] EQL 0 
THEN CURRENT_VCB COUCBSL_VOLLKID) 
ELSE CURRENT_RVT CRVTSL_STRUCLKID)); 
IF .BFRD CBFRDSW_BFRL] NEQ 0 
THEN 


ADOR, 


We're already hooked up to a BFRL. This means we found it already 
in the cache in the first lace. Nothing needs to be done with 
the BFRL. However, let's be paranoid and make sure that it is 
hooked up to the correct lock. 


<z 
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R 
4 


BEGIN 
BFRL = BFRLD_ADDR (.BFRD CBFRDSW_BFRLI); 


IF .BFRL pores LEROAS IS NEQ .LOCKBASIS 
_ -BFRL CBFRLSL_PARLKID] NEQ .PARLKID 


Ooooo 


Sesss 


UP wWwrn— 


BUG_CHECK (XQPERR, ‘wrong lockbasis'); 
LEAVE FIXBFRL; 
ELSE IF .INDX NEQ 0 
THEN 


$333 


: This BFRD is not hooked up with a BFRL yet, but we've already 


— 

DOODOODODOODODOODODODODOD0DNDNDONO 

TT} 

WN “OO ODNOVUSWR—ODOONOU 

PE. AWA. A. AANA AAA AAA AAA NIAAA AAAI AAI 
foleolelealo] Oooo 

SSS ws 


: 6: : 
; 3 ; : 
; 1 ? : 
; 3 ? : 
31 ? : 
3 3 ? : 
3 7 ; 
37 4 . 
; 3 ? 
3 7 : 
; % 7 : 
3% 6 : 
 Y 6 ; 
. é 
; 193 100 6 : got a BFRL in hand (from an earlier hit) so just hook it up : 
; : io) 6 ; and bump the REFCNT in the BFRL. ‘ 
; 19 108 ; BEGIN : 
; 1935 104 7 : 
3 1338 105 7 BFRD (BFROSW_BFRLJ = .INDX; : 
; 3 196 4 BFRL CBFRLSW_REFCNT] = BFRL CBFRLSW_REFCNT) + 1; ° 
3 1939 108 7 LEAVE FIXBFRL; ‘ 
: 1940 109 6 END; H 
3 1941 110 6 ‘ 
3 1306 111 6 ! There is no BFRL for this BFRD yet, so let's first see if a BFRL ‘ 
3: 194 ig 6 ! for this LOCKBASIS is already in the cache. ° 
> 1944 113 6! : 
3 1945 114 6 ; 
> 1946 115 6 LBINDX_ADDR = LOOKUP_LOCK (.LOCKBASIS, .PARLKID); ° 
3; 19467 118 6 INDX = .(.LBINDX_ADDR)<0,1u>; . 
; 1948 117 6 : 
3; 1949 118 6 WHILE .INDX NEQ 0 ‘ 
; 1950 119 6 dO : 
; 1951 120 7 BEGIN : 
3 1326 121 7 : 
; ioez ’ § f BFRL = BFRLD_ADDR (.INDX); ° 
; 1955 124 7 IF .BFRL CBFRLSL_LCKBASIS) Hy -LOCKBASIS : 
3 1326 125 7 AND .BFRL CBFRLSL_PAPLKID] EQL .PARLKID ‘ 
3; 195 1 $ ? N : 
; 1958 1 4 EXITLOOP; ° 
; 1959 128 7 : 
; 1960 129 7 INDX = .BFRL CBFRLSW_MATBFRLI; : 
3 1961 130 6 END; ; 
3 1Oe6 131 6 : 
3: 196 1 § 6 IF .INDX EQL 0 : 
i 1968 134 & eons 
; 1966 135 6 ! We did not find a BFRL in the cache already, so take one off ; 
: 196 1 6 ! the free List and use it. : 
; 1968 1 § : : 
; bs 44 1 8 BEGIN : 
; 1970 1 7 ; 
3; 1971 140 7 IF CINDX = .CACHE_HDR CF11BC$W_FREEBFRLJ) EQL 0 : 


H 3 
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: 1378 141 7 THEN 

: 130? 146 4 BUG_CHECK (XQPERR, ‘no free lock block"); 

3; 1975 144 7? ! Take our new BFRL out of the free BFRL List. 

: 1308 145 7 ! Link it into the front of the hash chain. 

3; 197 106 ? ! Fill im the Lockbasis and parent lock [0 fields. 

: 1999 rie 

; 1980 149 7 BFRL = BFRLD_ADOR (.INDX); 

> 1981 150 7 CACHE HDR CFTIBCSW_FREEBFRL] = .BFRL CBFRL$W_NXTBFRLI; 
: 138 151 7 BFRL CBFRLSW_NXTBFRLJ = .(.LBINDX_ADDR)<0, 165; 

3 1387 : § f (.LBINDX_ADDR)<0,16> = .INDX; 

3; 1985 154 7 BFRL BERL SL Ab CKBASIS2 = ,LOCKBASIS; 

; 1358 133 4 BFRL CBFRLSL_PARLKID] = .PARLKID; 

; 1988 157 7 ! Test for LOCKBASIS of -1. <1 is used for all buffers backed by the 

3; 1989 138 7 ! volume allocation lock. Because there is a volume allocation lock 

; 1990 159 7? : associated with the VCB at all times, there is no need to separately 

3: 1991 160 7! aeep a lock on those buffers in the cache. However, we will keep 

: 1336 161 7 ! a BFRL around to avoid a lot of special casing, but it's LKID field 

3; 199 162 7 ! will be zero. 

3 1994 163 7! 

3; 1995 164 7 

3; 1996 165 7 IF (.LOCKBASIS + 1) NEQ 0 

3 1997 166 7 AND .BBLOCK CCURRENT_UCB CUCBSL_DEVCHAR2], DEV$V_CLUJ 
; 1998 167 7 AND .CLUSGL_CLUB NEQ 0 

3 1999 168 7 N 

3; 2000 169 7 LKID_ADDR = BFRL CBFRLSL_LKID); 

; 2001 170 7 

3 O06 171 6 END; 

; 200 7 6 

3; 2004 175 6 ! Fill in the BFRD field that points to the BFRL. Bump the REFCNT 

3; 2005 174 6! in the BFRL. 

3 Boe 175 6! 

; 176 6 

: 2008 177 6 BFRD CBFRDSW_BFRL) = .INDX; 

; 909 178 6 BFRL CBFRLSWLREFCNT) = .BFRL CBFRLS$W_REFCNT) + 1; 

3 Bt 199 : END; ! of FIXBFRL block 

; O18 18¢ ! Store the current sequence number from the backing lock for this buffer. 
3 2014 18 ! This must be done here because multiple buffers may be backed by a 

3; 2015 is : single lock. If one of them has been modi ied. the sequence number 

3 Big 185 ! for that lock will have changed, yet unmodified buffers backed by 

: 201 136 : the same do not have the same sequence number, even though they 

3 Big 1 ! are still valid. Hence, stamp all buffers with the current sequence 

: Bi is ' number. 

: ° 1 1M CASE -BFRD CBFRDSB_BTYPE) FROM 0 TO 6 OF 

3; 20 i 136 HEADER_TYPE): 

; 3 : 137 BFRD CBFRDSL_SEQNUM) = .LB_HDRSEQ C.LCKINDX); 

: 03 195 CDIRECTORY_TYPE, DATA_TYPE): 

3 09 136 BFRD LBERDSL_SCONOM) = .LB_DATASEQ C.LCKINDX); 
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CDIRINDX_TYPE): 
BEGIN 


LOCAL 
DIRINDX : REF BBLOCK FIELD (DIRC); 


FRD CBFRDSL_SEQNUM) = 2 HDRSEQ CL CKINDX]; 
IRINDX = ,CACHE HOR CFIIBCSL_BUFBAS 

+ 5i2*(.BFRD = .CACHE-HDR CF lacs BFRDBAS 
IRINDX CDIRCSL_DATASEQS = .LB_DATASEQ C.LCKINDXJ; 


BFRD 
DIRI 
D 

E 
CBITMAP_TYPE): 


BFRD CBFRDSL_SEQNUM] = .(LB_DATASEQ (0])<0,16,0>; 


CINDEX TYPE): 
BFRD CBFRDSL_SEQNUM] = .(LB_DATASEQ [0])<16,16,0>; 


CQUOTA_TYPE): 
BFRD CBFRDSL_SEQNUM] = .SAVE_VC_FLAGS<1,15,0>; 


TES; 
! Take the buffer off of the in-process queue and put it back 


! on the aeproor tate pool LRU List in the cache. 
Clear out CURPID in the BFRD to note we aren't using it anymore. 


REMQUE (.BFRD, BFRD);: 
BRS _USED C.POOL] = .BFRS_USED C.POOL) - 1; 
BFRD-CBFRD$SW_CURPID) = 0; 
POOL_LRU = CACHE_HDR ceiiecsa POOL_LRU] + .POOL*8; 
INSQUE (.BFRD, .POOL_LRU COBLAK}); 
END; T of LOCKBASIS§ match. 
BFRD = .NXTBFRD; 
END; ! of loop through pool bfrds. 
IF .QHEAD NEQA .BFRD 
BUG_CHECK (XQPERR, ‘screwed up in-process List"); 
END; ! of loop through all pools 
IF .LKID_ADDR EQL 0 
RELEASE_CACHE (); 
RETURN .LKID_ADDR 
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-0ct-1984 1 
GLOBAL ROUTINE RESET_LBN (BUFFER, LBN) : L_NORM NOVALUE = 
~ 
FUNCTIONAL DESCRIPTION: 
This routine changes the resident LBN of the indicated block 


and marks it as Girty and valid. . 
It is assumed this will be followed soon by a buffer write 
operation for the new Lbn. 


CALLING SEQUENCE: 
RESET_LBN (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of block buffer 
ARG2: new LBN 


IMPLICIT INPUTS: | 
buffer descriptor arrays 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
backing L8N for buffer altered 
buffer marked as dirty and valid. 


BFRD- : REF BBLOCK, 
INDX_ADDR; 


INDX = (.BUFFER = .CACHE_HDR CF11BCS$L_BUFBASE})/512 + 1; 

BFRD = BFRD_ADDR (.INDx,; 

SERIAL_CACHE (); 

If .BFRD CBFRDSL_LBN) NEQ 0 

THEN 

! BFRDSL_LBN neq 0 means that this buffer is in the hash lookup list. 


! We need to remove it from the List it is currently 
! in prior to resetting the LBN field. 
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eager 1882 18:28:93 PANG A Bkisesze vg. 25082, age 40 


BEGIN 

INDX_ADDR = LOOKUP_LBN (.BFRD CBFRDSL_LBNJ); 

IF_ .(.INDX_ADDR)<0,16> EQL .INDX 

(. INDX_ADDR)<0,16> = .BFRD CBFRDSW_NXTBFRDJ 
BEGIN 

0 


ELS 


INDX_ADDR = BBLOCK [ BFRD_ADDR (.(.INDX_ADDR)<0,16>), BFRDSW_NXTBFRDJ 
UNTIL .(TINDX_ADDR)<0,16> EQL™. INDX; 
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END; 
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4 
4 
4 
4 
i 
4 
4 
4 
é 4 
S13 
$12 3 
2 2 3 { INDX.ADDR) <0, 16> = .BFRD CBFRDSW_NXTBFRDI; 
a8 | 
$12 s : Store the desired LBN and hook it up in the LBN hash List. 
16 3 : 
216 : BFRD CBFRDSL_LBN) = .LBN; 
216 33 INDX_ADDR = LOOKUP_LBN (.LBN); 
216 333 BFRD-CBFRDSW_NXTBFRDJ = .(.INDX_ADDR)<0,16>; 
$163 33 (. INDX_ADDR)20,16> = .INDX; 
2167 33 BFRD CBFRDSV_VALID) = 1; 
step HY BFRD (BFRDSV-DIRTY] = 1; 
3170 33 RELEASE_CACHE (); 
2172 334 END; ! end of routine RESET_LBN 
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003¢ 00000 -ENTRY RESET_LBN, Save R2,R3,R4,R5 ; 3250 

55 FC AA 43 0000 Vv -4(BASE), a5 ; soe 

52 04 AC 00 B5 C3 000 SUBL ans) BUFFER, R2 : 3295 
: 00000200 8 ¢é 0000 DIvi2 # 1g R2 ; 

01 Ag 9 901 MOVAB 1(R25, nox Pe 

0 p 1 MOVL (RS), R : 329 
52 5 5 OO1A ASHL = #5 fnox R2 : 
3 18 Ad CO 0001 ADDL2 24¢RO) : 

rag 5 5 Beeb HT : 3299 

08 he D TSTL ACT J : 3637 
41 1 B BEQL 86 48 : 

51 65 MOVL (RS), RI : 3311 
50 4 Al 3C¢ mMOVZ2WL 20(R1), RO F 
99 08 A2 1 7A EMUL #1, 8(BFRD), #0, -(SP) ; 
0 BE 7 A EDIV. RO. (SP)+, RO, RO F 
p 003F TSTL oR ; 
0041 BGEG Sts : 
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-0¢t-1984 12: F11X.BUG DBLOK.832;1 (17) 
0 50 CE 00043 MNEGL 
2 10 a1ap ff 46 18: MOVAW S781) CRO}. INDX_ADDR 
10 i$ is 4 peer £0. #16, CINDX ADBR), INDX 
51 6 p 0 MOVL (RS), RI 
26 $0 C 000 ‘ NDK_ADDR), R4 
4 0 C64 90 MULL 
54 18 «OAT £0 58 ADDL 24k) 
50 FE AG SE 0005 MOVAB (R4) THON. A 
10 09 F 0063 CMPZV 40, #ié, CINDX PADDR) , INDX 3320 
69 1 cS 8 6A 3$: VW O(BFRD), (INDX_ADDR) 
A 0 ac D $f 4$: VL —sLBN 8 BFRD) 
34 6 00 MOVL (R55 1 
1 16 Ae 3C 00076 MOVZWL apeRa). 
AC oI A 0007A EMUL #1, LBN Who -(SP) 
Ae 1 28 9080 EDIV. Ri, (SPS+, RI, RI 
51 05 000 TSTL =e 
93 18 9087 BGEO $ 
51 } ce 0089 MNEGL 1, RI 
50 10 B441 3E 0008C S$: MOVAW @16(R4)(R1] mi ADDR 
1€ A2 $9 BO 00091 MOVW  (INDX_ADDR). 30(BFRD) 333 
60 6095 Vw INDX, ~CINDX 33 
18 A2 oC 0098 BISB2 #12, 24(BFRB 3% 
F8C7 +30 0009C W #12, 26880) 738 
4 0009F R 3340 
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“Oct-19 

GLOBAL ROUTINE MARK_DIRTY (BUFFER) : L-NORM NOVALUE = 

'e¢ 

! 

FUNCTIONAL DESCRIPTION: 

This routine marks the indicated buffer for write-back. 


i CALLING SEQUENCE: 
MARK_DIRTY (ARG1) 


' INPUT PARAMETERS: 
ARG1: address of block buffer 


! IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


i 
i 
! 
i 
i 
i 
' 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
buffer marked for write-back 
' 


BEGIN 
BIND_ COMMON; 


LOCAL 
BFRD : REF BBLOCK, 
INDXO 


INDXO = (.BUFFER = .CACHE_HDR CF11BC$L_BUFBASE))/512; 

A z INDKO<O, 16> GEQU .CACHE_HDR CF11BC$W_BFRCNT) 
BUG_CHECK (BADBUFADR, ‘buffer addr out of range’); 

BFRD = .CACHE_HDR CFIIBCSL_BFRDBAS) + .INDXO*BFRDS$S_BFRDDEF; 

if wer -BFRD CBFRDSV_VALID] OR .BFRD CBFRDSW_CURPID) EQL 0 
BUG_CHECK (XQPERR, ‘expect it to be valid and in-process'); 

BFRD CBFRDS$V_DIRTY) = 1; 

END; ! end of routine MARK_DIRTY 
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-Jan-1985 18:2 AX-11 Bliss-32 V4.0-742 Page 73 R 
B-Jan-1985 18: £3: 3% F11X.BUGSRCIRDBLOK.B32;1 (18) V 
000 ENTRY MARK_DIRTY, ait nothing ; 3341 
04 AC FC «OBA CC SUBL 3 9-4 (BASE) . FFER, RO ; 3380 
2 00000200 BF ¢ DIVL a51 2, IN Nig” : 
1 FC AA OD F MOVL =4(BASE) : 3382 
16 Al 30 1 13 CMP INDXO, +R) : 
4 iF 1 BLSSU ; 
FEFF 19 BUGW : 3384 
0000* 0018 . WORD <BUGS BADBUF ADR! 4> : 
51 FC AA DO 00010 1$: MOVL BASE) : 3386 
20 20 C4 0 1 MULL R : 
18 Al CO 4 ADDL #32, FRD : 
18 AO 03 £1 0 8 BBC a3, 24 (8 RD), 2% ; 3388 
1c =6A0 BS D TSTW 8(B ; 
04 12 00030 BNEQ : 
FEFF 00032 2$: BUGW : 3390 
0000* 00034 .WORD  <BUG$_XQPERR!4> : 
18 AO 04 88 00036 3$: BISB2 #4, 22(BFRD) > 3392 
04 0003A RET > 3394 
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ROUTINE RETURN_BFRD (BFRD) : L_JSB_1ARG NOVALUE = 
les 
! 


i This routine completes the return of the given BFRD to the appropriate 
! pool in the cache. It expects that it has already been unhooked from 
the hash Lists and the BFRL taken care of. 


<= 


= 
BEGIN 


MAP 
BFRD : REF BBLOCK; 
BIND_ COMMON; 
LOCAL 
POOL, 
POOL __LRU : REF BBLOCK; 
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at SD 
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PPI 


POOL = .BFRD CBFRDSV_POOL); 
POOL_LRU = CACHE_HDR CF118C$Q_POOL_LRUI + .POOL*8; 


Credit our buffers in use count if this was on our in-process List. 
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IF .BFRD CBFRDSW_CURPID) NEQ 0 
BFRS_USED C.POOL] = .BFRS_USED C.POOL) - 1; 
BFRD CBFRDSL_LBN) = 0; 
BFRD CBFRDSL_UCB] = 0; 
BFRDSL-LOCKBASIS) = 0; 

D$L_SE wun = 8: 
BFRD CBFRDSW_CURPID]) = 0; 
BFRD CBFRDSWINXTBFRD) = 0; 
! Remove from either the in-process List or it's current position in 


! the cache LRU (whether curpid was zero or not) and move to the head 
of the cache LRU List. 


coon 


264 


SES 


REMQUE (.BFRD, BFRD); 
INSQUE (.BFRD, POOL_LRU CQFLNK)); 


1 END; 
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59 6 OF REMQUE (BFRD), BFRD + 3439 

é 60 OF § INSQUE (BFRD); (POOL_LRU) i $440 
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; Routine Size: 43 bytes, Routine Base: $CODE$ + OE7C 


RDBL -jan-1985 1 Ax-11 Bliss=-32 V4.0-74 P 
OK. B-Jan-1905 18:20:55 Yayett Lises32.v4.00742, aoe 36 


i ver GLOBAL ROUTINE INVALIDATE (BUFFER) : L_NORM NOVALUE = : 
0 445 tee 
1 44 ‘ 
Hy re FUNCTIONAL DESCRIPTION: 
Se 49 This routine invalidates the indicated buffer. 
86 res i CALLING SEQUENCE: | 
8 42¢ i INVALIDATE (ARG1) | 
88 4 i 
89 +28 i INPUT PARAMETERS: 
39 : 5 ARG1: address of block buffer 
9 re i sites *' INPUTS: 
9 458 i ONE 
94 459 i 
95 460 i OUTPUT PARAMETERS: 
% 461 i NONE ( 
9 46 i ( 
9 46 i IMPLICIT OUTPUTS: 
99 464 i NONE 
00 465 i 
01 466 i ROUTINE VALUE: 
§¢ 467 i NONE 
468 i 
04 9 i SIDE EFFECTS: 
05 470 a buffer contents forgotten 
ie 


Sssess 


LOCAL 
POOL, 
BFRD : REr BBLOCK; 


BFRD = ((.BUFFER = .CACHE_HDR crore. BUF BASE])/512) *BFRDS$S_BFRDDEF 
+ .CACHE_HDR CF11BC$L_BFRDBAS . 


BFRD CBFRDSV_DIRTY] = 0; 
BFRD CBFRDSV-VALID] = 0: 


IF .BFRD CBFRDSW_CURPID) NEQ .(CTLSGL_PCB CPCBS$L_P1D})<0,16> 
BUG_CHECK (XOPERR, ‘expected this to be in-process'); 
' Pull this pet fer out of it’s current position and place it at the 


i front of the List so it will be the next buffer tossed off of our 
in-process List. 


AWWAWWW 


PRORIPOIRINOR 


VEFWUN—OOONOAUS wit 


li, ll, ll, ll, la, ll, ll, ll, li, hl, ill, lls, Jills, ll, ll, ill, Jill, Ail, ill, lls, Jills. Jill, 


POOL = .BFRD CBFRDS$V_POOL]; 
REMQUE (.BFRD, BFRD)? 
INSQUE (.BFRD, BFR_LIST C.POOL, QFLNK)); 


WN —O Done 


Pete Oe Se Se Se Se Se Ge Ge Se Se Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se ee Fe Ge Ge Ge Ge Ge Se Se Ge Se Ge Se Se He Ge Se Se Se oe SH Se ee Oe ee OH Se Se oe 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
BIND_ COMMON; 


H 4 


; Routine Size: 75 bytes, Routine Base: S$CODE$ + OEA7 


RDBL -Jan-1985 18:20:35 AX-11 Bliss-32 V4.0-742 Pa 77 
yoseo0s mets 1 13:29:32 YET Tx BUGSREIROBL OK BS241 9° 20) 
3 5 3 
; 1 IF -BUFFER EQL .BITMAP_BUFFER 
: 8 : BITMAP_VBN = 0; : 
: 2340 505 7 END; ! end of roucine INVALIDATE : 
0000 99 .ENTRY INVALIDATE, Save nething 5 3443 ; 
50 FC AA OD MOVL =4(B : 3482 F 
51 04 AC 0 ¢3 06 SUBL3 (RO), BUFFER, R1 : ; 
qjecomee Fay Any Hef : 2 
1 18 “0 £0 1 ADDL2 24(RO), BFRD + 3483 ; 
18 «OAT oc A 19 BICB2 #12, 24(BFRD) + 3486 ; 
50 000000006 D0 0001D MOVL TL$GL_PCB, RO : 3488 : 
60 Ad iC al 8} 0 4 CHP aB(BrRD), §6(RO) : ; 
EFF 000 BUGW > 3490 : 
90 Oe 00 D «WORD  <BUGS$_XQPERR!4> : : 
50 18 Al 2 0 F OOO2F 1$: EXTZV. #0, #2, 24(BFRD), POOL 3 3497 3 
1 61 OF 00 5 REMQUE 8 RD). BERD : 3498 : 
0 CC AAGO 7E MOVAQ =52(BASE)CPOOLJ, RO : 3499 ; 
60 61 00 INSQUE (BFRD), (R : : 
BC AA 04 A pi 004 CPL BUFFER, -68(BASE) ; 3501 3 
B4 AA OS bod? CLRL = -76(BASE) > 3503 : 
04 OO04A 2$: RET ; 3505 : 


4 
-Jan-1985 18:20:35 AX-11 Bliss<-32 V4.0-742 Pa 78 
f-Jan-1985 13:29:33 F11X.BUGSRCIJRDBLOK .B32;1 9°21) 
H § 5 } GLOBAL ROUTINE WRITE_HEADER : L_NORM NOVALUE = 
: 2344 1 144 
; 5 5 : 7 
: ‘3 19 : : FUNCTIONAL DESCRIPTION: 
; re \ : This routine writes out the currently resident file header. 
; 2350 514 1 | CALLING SEQUENCE: 
> 2351 315 1 | WRITE_HEADER () 
; : 317 1 | INPUT PARAMETERS: 
ae: Se 
; 26 839 | | IMPLICIT INPUTS: 
3 2 2 1 ! FILE_HEADER: address of current file header 
: 2359 358 fi OUTPUT PARAMETERS: 
; 524 1! NONE 
: 2361 525 1 I 
3 Mi 5 § 1 ! IMPLICIT OUTPUTS: 
; 307 2 ‘ : IO_STATUS: status of 1/0 transfer 
: 2365 529 1 | ROUTINE VALUE: 
; 530 1! NONE 
> 2367 531 1 
: 5 ¢ 1 ! SIDE EFFECTS: 
; +4 : : checksum checked, header written 
; 4 235 1 ie 
; 7 3 ? BEGIN 
i 3379 339 ¢ BIND_COMMON; 
i $399 541 2 EXTERNAL ROUTINE 
3 4 246 CHECKSUM : LLNORM; ! compute file header checksum 
; 2380 544 
; 1 545 : The checksum of the header should be good, since all routines that modify 
: 4 268 ' the header bless it with a new checksum when they are finished. Check the 
: 3 ! checksum and write the header. 
: 3885 a3 3° 
; 385 1 Nor CHECKSUM (.FILE HEADER) 
3 33 THEN BUG_CHECK (WRTINVADR, FATAL, ‘ACP attempted to write an invalid file header’); 
; 89 338 WRITE_BLOCK (.FILE_HEADER); 
: 2391 555 : END; ! end of routine WRITE_HEADER 


sEXTRN CHECKSUM, BUGS_WRTINVHDR 


0000 000 -ENTRY WRITE_HEADER, Save nothin : 35 
on ane 8988 PUSHL 4<BASE) . + 3398 


4 
B-zan-1985 18:20:33 AX-11 Bl isesse V4.0-742 Page 79 


-“Oct-1 F11X.BUGSRCIRDBLOK .832;1 (21) 
0000G CF 1 Ff 5 CALLS #1, CHECKSUM 3 
6 94 E A BLBS RO, $ 3 
FEFF D BUGW : 3; 3551 
0000+ F «WORD <BUG$_WRTINVHDR!4> : 
04 AA DD 00011 1$ PUSHL 4(BASE) ; 3553 
F944 CF 01 FB 00014 CALLS #1, WRITE_BLOCK é 
04 00019 RET 3; 3555 


; Routine Size: 26 bytes, Routine Base: SCODE$ + OEF2 


K 4 : ef 
+ ae g- Jon 1387 18:20:33 yaett Bliss<-32 V4.0-742 Page 80 


v04- -Oct-1 F11X.BUGSRCIJRDBLOK .632;1 ) 
4 i GLOBAL ROUTINE WRITE_DIRTY (LOCKBASIS) : L_NORM NOVALUE = 
95 3 
a cae 
ibe 6¢ rots trariye Boy Boy A ete which were modified back to the 
401 64 : 
rt 68 INPUT PARAMETERS: 
04 6 ! SIDE EFFECTS: 
405 dirty buffers written. 
leo 


rx 
0090 


+ 
PUPP DV IVD IUPUI SVSVSUSVSVSVAT SISOS 


BFRD = .BFRD CBFRDSL_QFLI; 
END; 


IF .QHEAD NEQA .BFRD 
BUG_CHECK (XOPERR, ‘in-process queue screwed up'); 
END; 
EN; ! of routine WRITE_DIRTY 


PINNING BB BBB BNE & FAWN NAIAIAIIDIIPPIDIND 2 2 


68 
4 
0 
71 
40 te BEGIN 
410 7 
411 74 BIND_COMMON; 
oi 75 
41 46 INCR POOL FROM 0 TO 2 
414 7 DO 
415 8 BEGIN 
416 7 LOCAL 
417 580 ° 
418 581 QHEAD : REF BBLOCK, 
rth 288 BFRD : REF BBLOCK; 
<3 584 QHEAD = BFR_LIST ¢.POOL, QFLNK); 
4 ; 585 BFRD = .QHEAD COFLNK); 
743 206 
2424 58 1 = .BFRS_USED C.POOL); 
coe? 588 
426 589 UNTIL .I EQL 0 
2427 590 dO 
428 591 BEGIN 
429 236 l= J - 1; 
430 59 
431 594 IF C-LOCKBASIS EQL 0 
436 595 OR .BFRD penose. LOCKBASIS] EQL .LOCKBASIS) 
: 236 AND .BFRD CBFRDSP_DIRTY 
435 598 WRITE_BLOCK (((.BFRD-.CACHE HDR CF11BCSL BF RDBAS]) /BFRDSS_BFRDDEF) #512 
° 599 + .CACHE_HDR CFTIBCSL_BUFBASE)); 
4 601 
439 


SSRBVSAR AN 


'e¢ 
' 

FUNCTIONAL DESCRIPTION: 
G4 
| 
| 
| 
| 


4 
BoJan-1985 18:20:35 yAncd1 BL ise32 v4.0-762, 


003¢ 999 .ENTRY WRITE_DIRTY, Save R2,R3,R4,R5 
53 b4 002 CLRL 
54 CC AAS : 1$ MOVAQ -52(BASE)CPOOL], QHEAD 
38 6 p 09 MOVL § (QHEAD) BERD 
5 F4 AAG C MOVZWL -12(BASE)CPOOLI, I 
b 11 28 TSTL 
1 BEQL 4 
") 1 oss 
06 A 03 1 TSTL CKBASIS 
07 1 1A BEQL 
04 Ac 10 A2 bi 0001C CMPL 16(BFRD), LOCKBASIS 
2 12 1 BNEQ 4$ 
18 18 A2 2 €1 3 3s: BBC #2, 24(BFRD), 4$ 
51 FC OA 09 8 MOVL <=4¢ 
50 32 18 =Al C3 0002C SUBL3 24(R1), BFRD, RO 
5 0 c6 00 1 DIVL2 RO 
50 50 9 ASHL #9, RO, RO 
51 61 po MOVL (RI), RI 
6140 9F PUSHAB (R1)ERO] 
£900 cf 01 FB ; CALLS #1, WRITE BLOCK 
2 62 D 904 4$: MOVL (BERD), BFRD 
9 11 é BRB $ 
52 4 D1 00048 Ss: CMPL § QHEAD, BFRD 
04 13 00048 BEQL 3s 6S 
FEFF 00040 BUGW 
9000s O04F WORD Bucs XOPERR! 4> 
AF 53 02 F3 00051 6$: AOBLEQ #2, POOL, 1$ 
04 00055 RET 


; Routine Size: 86 bytes, Routine Base: S$CODES + OFOC 


Sete Se Se Se Ge Se Ge Se Ge Ge Se Ge Se Ss Ge Se Ge Ge Ge Se Ge Se Ge Se Ge Se Se 


oO 


oo 


ROBLOK 


<4 


tet el ek el ake Jak De et 


FUSE SVSUSVSVSISISN £ 4 
SOOONOUE WOO 4 
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a 4 

-Jan-1985 18:20:35 AX 
gagen=i3 4 13:29:33 ty 
GLOBAL ROUTINE TOSS_CACHE_DATA (LCKINDX) : L NORM NOVALUE = 


lee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine invalidates all data blocks associated with 
the given lock basis, after first writing dirty blocks. 

The Gata sequence number is incremented, which invalidates 
copies of these blocks on other nodes, and blocks found in 
our cache will be marked invalid, causing them to be tossed 
from the cache when the serialization lock is lowered. 

Only the data block pool is scanned. 


SIDE EFFECTS: 
dirty buffers written, appropriate buffers invalidated 


=11 
1X..BUGSRC 


BEGIN 

BIND_COMMON; 

LOCAL 
pages. 


: REF BBLOCK, 
: REF BBLOCK; 
LOCKBASIS = .LB_BASIS C.LCKINDX); 


QHEAD = BFR LIST C1, QFLNK); 
BFRD = .QHEAD COFLNKI; 


I = .BFRS_USED (1); 
UNTIL .1 EQL 0 
dO 


BEGIN 
:@ «a @ Ge 


IF .BFRD CBFRDSL_LOCKBASIS) EQL .LOCKBASIS 
BEGIN 
IF .BFRD CBFRDSV_DIRTY) 
THEN 


WRITE_BLOCK (((.BFRD-.CACHE HOR CF1IBCSL f ROBAS 1) /BF RDSS_BFRODEF) #512 
+ .CACHE_HOR CFTIBCSL_BUFBASE)); 


BFRD CBFRDSV_VALID) = 0; 
END; 


BFRD = .BFRD (BFRDSL_OQFL); 
END; T of loop through in-process data block pool 


RIP DRID EE BBB EE EE MMA AAPIPINININYININIPININININININIPINIDIPAIY a at st tt st st a a ts ss 


If .QHEAD NEQA .BFRD 


Bliss-32 V4.0-742 
JRESLOK .832;1 


Page 85 
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N 4 
se 5- gon 138) 18:30:33 Yaron Bliss<-32 V4.0-742 Pose 4; 


V04= -0ct-19 F11X.BUGSRCJRDBLOK.B32; 1 
$206 Bb5 THEN LUG CHECK (XOPERR, ins '); 

: He 693 al » ‘in-process data block queue screwed up’); 

2508 671 ¢ LB_DATASEG C.LCKINDX] = .LB_DATASEQ C.LCKINDXJ + 1; 

: 2511 ors END; ! of routine TOSS_CACHE_DATA 


003¢ 0 09 ENTRY Toss CACHE_DATA, Save R2,R3,R4,R5 : 3611 
51 FG OAA MOVAB -12(BASE),~R1 + 3630 
20 04 AC D 36 MOVL LSKINDX 0 + 3640 
0080 CA40 D 0 A MOVL 8(BASE)CRO], LOCKBASIS : 
53 D4 AA 9 0010 MOVAB 44(BASE), QHEAD : 642 
52 63 p 0014 MOVL §§ (QHEAD), BFRD + 364 
54 02. Al ; 17 MOVZWL 2(R1), I > 3645 
4 Dd 1B 1$: TSTL Oo + 3647 
. 3 0 1D BEQL 4 4$ : 
4 D7 OO01F DECL ; 3650 
55 10 A2 01 00 1 CMPL 6(BFRD), LOCKBASIS : 3652 
4 12 000 3 BNEG © 3$ : 
1B 18 A2 2 €1 000 BBC #. 24(BFRD), 28 + 3656 
51 FC OAA 09 00 C VL. =6(BASE), R1 : 3658 
50 32 18 «Al C3 000 6 SUBL 3 24(R1), BFRD, RO : 
é 0 ¢ 00 DIVL2 #32, RO : 
50 50 9 00 SHL. —s- #.RO,_- RO : 
53 61 00 0003C¢ MOVL cri), RI + 3659 
6140 9F 0003F PUSHAB (R1)(ROJ F 
FRAG CCF 01 FB O04¢ CALLS #1, WRITE BLOCK ; 
18 Ag 08 BA 0004 a8: BICB2 #8, 24(BFRD) : 3661 
5 62 D0 00048 3$: MOVL (BERD), BFRD + 3664 
cB 11 0004 BRB + 3647 
52 53 D1 00050 4s: CMPL § QHEAD, BFRD : 3667 
04 13 0005 BEQL «=s«éSS ; 
Fer 05 BUGW : 3669 
0000* 0005 .WORD <BUG$_XQPERR!4> : 
50 04 ac DO 00059 5s: MOVL  LCKINBX, RO : 3671 
OOAB CASO 06 9050 INCL  168(BASE)CROJ ; 
04 0006 RET : 3673 


3; Routine Size: 99 bytes, Routine Base: SCODES + OF62 
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5 
=Jan-1985 18:20:35 AX 32 v4.0-74 
B-Jan-19 41 29:33 Hy R 
GLOBAL ROUTINE KILL_CACHE (UCB) : L_NORM NOVALUE = 
tee 
i 


i This routine scans through all BFRD's im the cache tossing out 
; all those that match the specified vce. 


lee 

BEGIN 

BIND_COMMON; 

LOCAL 
BFRD : REF BBLOCK, 
PIDINDX : WORD; 


BFRD = .CACHE HDR CF11BCS$SL_BFRDBAS); 
PIDINDX = -CTCSGL_PCB CPCBSL_PID); 


SERIAL_CACHE (); 
INCR INDXO FROM 0 TO (.CACHE_HOR CFIIBC$W_BFRCNT] = 1) 
BEGIN 
IF .BFRD CBFROSL_UCB) EQLA .UCB 
THEN 
BEGIN 
. -BFRD CBFRDS$W_CURPID] NEQ 0 


BEGIN 
i -BFRD CBFRDSW_CURPID] EQL .PIDINDX 


BFRD CBFRD$V_VALID) = 0; ! it will get tossed on unlock 


Ss 

BEGIN 

UNHOOK _BFRD (.INDXO#+1, .BFRD); 
ae “BFRD (.BFRD); 


BFRD = .BFRD + BFROSS_BFRDDEF; 


RELEASE _CACHE (); 
END; 


003¢ 00000 -ENTRY KILL_CACHE, Save R2,R3,R4,R5 


DBLOK .832;1 


LO&¢ LEQ LLOQ OV LOR LLL LO LLL LO 


RDBLOK ~Jan-1985 18:20:35 YAK=11_ BLiss-32 v4.0-742 p aI 
V04=005 f-sant9gs 1:28:38 FANT eBGSRETAbeN ox esse 29° 28) | 


3693 

$97 

5701 

3705 

3708 
| 


FC AA DO 00002 MOVL  =4(BASE) : 3692 
18 AO D a0 MOVL  24(RO), bere : | 
000000006 00 »D 0 A MOVL cits L’PCB, RO : 
60 AO B 0 11 MOVW 6(RO)> PIDINDX ; 
F2A 13 BSBW ss SERIAL CACHE : 
50 FC OA OD 0 1 MOVL  =4(BASE), R : 
4 16 AO 3C 0001C MOVZWL 22(RO), R4 : 
53 gi cE 0 MNEGL #1, INDXO : 
: 11 000 BRB 4$ : 
04 Ac OC A2 D1 00025 18 CMPL 12(BFRD), UCB ; 
21 12 OOO2A BNEO 4 : 
1c A a 90 C TSTW 8(BFRD) : 
{5 902F BEQL $ 3 
55 1c) = A2-s«B1 60031 CMP 8(BFRD), PIDINDX : 
16 12 00035 BNEQ 4 ; 
18 A2 08 8A 00037 BICB2 #8, 24(BFRD) + 3710 
10 11 00038 BRB 3$ : 3705 
3¢ DD 00030 2% PUSHL  BFRD : 3714 
01 AS OF O003F PUSHAB 1(INDXO) : 
FAQ2 CF 02 FB 0004 CALLS #2, UNKOOK_BFRD : 
50 52 b0 0004 MOVL  BFRD, RO + 3715 
FE6A 30 O004A BSBW RETURN BFRD : 
52 20 C9 00040 3$: ADDL2 #32, BFRD + 3719 
D1 5 4 F2 00050 4$: AOBLSS R4, INDXO, 1$ : 3697 
F6EB 30 00054 BSBW  RELEASE_CACHE : 3723 
04 00057 RET : 3725 


; Routine Size: 88 bytes, Routine Base: S$CODE$S + OFCS 


. * . . . * * * . . . . . . . . * . . 
OR LO LO LO LO LO i i, I, i, i, i, i, 


5 
ROBLOK =Jan-1985 18:20:35 AX-11 Bliss=32 V4.0-742 P 6 
Bo sanct gts 1 29:3 tF1Tx.BUGSRCIRDBLOK 632-1 ge 38 


; $6 4 § } GLOBAL ROUTINE WRONG_LOCKBASIS (HEADER) : L_NORM NOVALUE = 

; 2568 7 8 1 !44 

; 2569 7 1 ! 

; 70 730 1 ! This routine returns the given buffer as a result of disccvering 
; 2571 731 1! we had the wrong lockbasis when ag rb 1t, 

; 276 7? ¢ 1! If it was read from disk, we must invalidate it, as we stored the 
: 27 7 1! 7 lockbasis in its bird. If it was found in the cache, 

; 2574 734 1! simply return it and credit us for returning it. 

; 2575 ae, 2S 

; 2576 7 $ 1 I< 

: a4 7 1 

; 2578 738 BEGIN 

; 2579 739 

; 2580 740 2 BIND_COMMON; 

; 2581 74) 

; ob¢ rg LOCAL 

; 258 74 POOL, 

; 2584 744 BFRD : REF BBLOCK, 

; 2585 745 POOL LRU : REF BBLOCK; 

; 2586 746 

; S267 3748 SERIAL_CACHE (); 

; 2589 749 BFRD = ((.HEADER = .CACHE_HDR CF11BC$L_BUFBASE])/512) *BFRDS$S_BFRDDEF 
; rb £30 + .CACHE_HDR CF11BCS$L_BFROBAS); 

; 236 P36 IF .BFRD CBFRDS$W_BFRLJ EQL 0 

; 259 75 

; $29¢ 754 BFRD CBFRD$V_VALID) = 0 

; 2595 755 LSE 

; $298 756 BEGIN 

; 2597 goer POOL = .BFRD CBFRD$V_POOL); 

; 2598 758 REMQUE (.BFRD, BFRD); 

: 2599 759 BFRS_USED [.POOL) = .BFRS_USED [.POOL) - 1; 

; 2600 760 BFRD CBFRDS$W_CURPID) = 0; 

; 2601 761 POOL_LRU = CACHE_HDR cr iiecsa POOL_LRU] + .POOL*8; 

; 260 16¢ 3 INSQOE (.BFRD, .POOL_LRU COBLAK)); 

; 260 76 ND; 

; 2604 

;001 !CDS0016 765 ; 

3 ONS 'CDS0016 76 ! Check the and iguity queve. The fact that we have just realized we 
;003 !CDS0016 76 ! have the wrong lockbasis means that another process with the correct 
3004 !CDS0016 768 ! serialization lockbasis may have found the buffer in-process by us 
;005 ied saate 769 ! im the cache and placed himself on the ambiguity queue. 

s 006 'CDS0016 770 : 

;007 !CDS0016 771 

308 'CDS0016 ore IF .CACHE_HDR CF11BCSL_AMBIGQFL] NEQ 0 

; 'CDS0016 77 THEN 

sgt 'CDS0016 774 BEGIN 

7011 !CDS0016 775 LOCAL 

BIg 'CDS0016 76 AQB : REF BBLOCK, 

:033 !CDS0016 7? WAITER; 

sgt epepRie 778 

3015 !COS0016 779 AQB = .CURRENT_VCB CVCBS$L_AQB); 

3016 'CDS0016 80 , 

;017 !CDS0016 781 ! Remove the stalled thread from the ambiguity queue. 

;018 !'CDS0016 782 ! Insert it immediately after us, so that it will be awakened by 
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REMQUE ( 
INSQUE ( 


IF 
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- CACHE _HDR nett entes tbe J, WAITER); 


WAITER, 
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 atactes ~HOR CFIIBCSL_AMBIGQFL] EQL CACHE_HDR CF118CS$L_AMBIGOFL] 


“BEG IN 
CACHE __HDR 


sete HDR 


— CACHE (); 
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R -Jan-1985 18:2 AX-11 Bliss-32 V4.0-742 Pa 8 
yOrt 00S b-Jan- 1982 18: 29: % F11X.BUGSRC JRDBLOK .832;1 oe 588 


F66E 30 00079 3%: BSBw RELEASE _CACHE ; 3799 
04 0007¢ RET ; 3800 


; Routine Size: 125 bytes, Routine Base: $CODE$ + 1010 


POPU se ee 


PAD (AAAAOAOAD 


Ww 


AI AADAAAAO 


2 


COINS ete et et et et ee et tte et mt msm mt mt me msm Rad 
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ee 
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VW 
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5 
B-an-1985 19:20:35 


tee 
A 


i This routine scans through all BFRD's in the cache 
! all those in the specified POOL for the CURREN 


: LOCKBASIS must match also. 
Legitimate pool values are 0 through 3. 
ae 

BEGIN 

BIND_COMMON; 

LOCAL 

TSTLOCKBASIS 

BFRD : REF BBLOCK, 
BFRD_CNT : WORD 

START BFRD : WORD, 
PIDINDX : WORD; 


BEGIN 


TSTLOCKBASIS = 0; 
UCB = .CURRENT_UCB; 


START_BFRD = 0; 
IF .POOL GTRU 0 
THEN 


BEGIN 

START BFRD = .POOLCNT (0); 
IF .POOL GTRU 1 

THEN 


BEGIN 
START_BFRD = .START_BFRD * .POOLCNT (1); 
IF .POOL EQL 3 


BEGIN 
START BFRD = .START_BFRD + .POOLCNT (2); 
ISTLOCKBASIS 21; 


END 
ELSE ! This is pool 1. 
ma TSTLOCKBASIS = 1; 


BFRD_CNT = .POOLCNT C.POOLJ; 
END; 


GLOBAL ROUTINE KILL_BUFFERS (POOL, LOCKBASIS) : L_NORM NOVALUE = 


tossing out 


, } ucB. 
: If the directory data (1) or directory index (3) pools are specified, 


IND 
POOLCNT = CACHE_HDR CF11BC$W_POOLCNT] : VECTOR C,WORD]; 


AX-11 Bliss-32 V4.0-742 
F11X.BUGSRCIRDBLOK .83 


TL 


RDBLOK -Jan-1985 1 X-11 Bliss-32 V4.0-742 Page 90 
v04=005 b-Jan-1995 Ria CoP eta eee Se 9° 26) 
> 264 BFRD = .CACHE_HDR CF11BCSL_BFR RDBA S] + .START_BFRD*BFRDSS_BFRDDEF ; 
; ei B35 PIDINDX = .CTCSGL_PCB Pease PID); : : 
; 649 2 SERIAL_CACHE (); 
; 691 68 INCR INDXO FROM .START_BFRD TO (.START_BFRD + .BFRD_CNT = 1) 
638 $2 BEGIN 
001 !cDs0017 bey IF “UCB FQ. .BFRD CBFRDS ucB) 
3002 ,¢0S0017 68 4 AND NOT -TSTLOCKBASIS OR 
; 657- 86 4 >’ CBFRDSL  LOCKBASIS] EQL .LOCKBASIS) 
3; 2658 3 THEN 
: 2659 871 4 BEGIN 
; 2660 876 4 
3 2661 873 4 IF -BFRD CBFRDSW_CURPID] NEQ 0 
3 O68 874 4 THEN 
3 266 875 5 BEGIN 
> 2664 876 5 IF .BFRD CBFRDS$W_CURPID] EQL .PIDINDX 
> 2665 3877 5 
; 2666 878 : BFRD CBFRDS$V_VALID) = 0; ! it will get tossed on unlock 
> 2667 879 END 
3; 2668 880 4 
> 2669 881 5 BEGIN 
: 2670 88¢ 5 UNHOOK_BFRD (.INDXO+1, .BFRD); 
> 2671 883 5 RETURN-BFRD (.BFRD); 
3; 267 884 4 END; 
3: 267 885 END; 
> 2674 3886 
3 2675 887 BFRD = .BFRD + BFRDSS_BFRDDEF; 
> 2676 888 
: 2677 889 
: 2678 890 
: 2679 891 2 RELEASE_CACHE (); 
> 2680 389 
> 2681 3893 1 END; 
0OFC 00000 .ENTRY ae BUFFERS, Save R2.R3,R4,R5,R6,R7 : 3801 
50 FC AA 00000078 8F C1 00002 ADDL3 : 3829 
56 D4 9008 CLRL TSTLG ; 3831 
57 94 AA DO MOVL =10 CARED uce : 383? 
53 B4 00011 CLRW = START_BFR > 3834 
51 04 Ac D 13 MOVL POOL, “R1 : 38 
18 1 1 BEQL 2 ; 
53 : 8 19 MOVW (RO), START_BFRD ; 3839 
01 1 01 0001C CMPL sR, 1 : 3840 
Op 18 OO1F BLEQU 1$ ; 
53 02 AO A 1 ADDW2 2(RO), START_BFRD ; 3843 
0 31 D4 3 CMPL ORT, 8 3 3844 
7 BNEG 2$ ; 
3 04 Ad A A ADDW2 4 (RO), START_BFRD : 3847 
6 01 DO O002E 18 MOVL #1, YSTLOCKBASIS : 832 
é 6041 80 00081 2$ Move  (RODCRIS, BFRO_CNI : 38 


5 
RDBLOK -Jan-1985 18:20:35 AX-11 Bliss-32 V4.0-742 P 91 
VOee OOS b-Jan-1985 HAR a Cotter testator 29° 26) 


; Routine Size: 158 bytes, Routine Base: S$CODE$ + 109A 


3894 


s. 
Mrr 
Ss 

Co 

Wn 
Www 
oo00 
oo 

u“ 
o—— 
mm 

z 

= 


0 FC AA ODO MOV -4(BASE), RO : 385 : 

1 3 Re 3 MOVIWL START FAD, R1 : _— ; 

1 C4 C MULL2 #32 : : 

52 1 18 #AO C1 F ADDL3 24(RO), R1, BERD : ; 
Q 000000006 00 0b 44 MOVL cits “PCB + 3859 ; 

60 A 4B MOVW 6(RO); PIOINDX : ; 

FI9A 4F SBW = SERIAL. CAC : 3861 3 

50 3 3¢ MOVZWL START _BFRD, RO : 3863 ; 

4 4 ¢ MOVZWL BFRD_CNT, R4 : : 

4 g 0 ADDL2 RO ; ; 

3 ¢ 5B MOVZWL START_BFRD, INDXO : : 

p 09 DECL NDXO : ; 

4 11 0006 BRB : F 

OC A2 7 D1 00062 3$ CMPL UCB, 12(BFRD) : 3867 ; 
¢8 if 9066 BNEG 6 : ; 

07 $ ES 0006 BLBC -TSTLOCKBASIS, 4$ : 3868 ; 

08 Ac 10 A2 01 0068 CMPL  16(BFRD), LOCKBASIS : 3869 F 
21 12 000 BNEG 6$ : ; 

1c A2 B 0072 4$: TSTW 8 (BFRD) : 3873 ; 

0c 13 0007 BEQL $ : : 

55 1¢ =6A2- «Bi 00077 CMPW «6-2 (BFRD), PIDINDX + 3876 ; 

16 12 60078 BNEQ 6$ ; ; 

18 A2 08 8A 00070 BICB2 #8, 24(BFRD) : 3878 ; 
10 11 00081 BRB 6$ : 3873 ; 

5 pp 0085 5$: PUSHL ®FRD : 3882 : 

01 A3 9F 00085 PUSHAB 1(INDXO) : ; 

FRE? cf 9 FB 0088 CALLS #2, UNHOOK_BF® ; : 
0 p 008D MOVL Ab, RO ; 3883 ; 

FD4F 0 00 BSB RETURN BFRD : : 

33 g9 CO 0009 $s ADDL2 2, BFRD : 3087 3 

C8 5 4 F2 0009 7$ AOBLSS R4, INDXO, 3$ : 3863 : 
F500 3 9009A BSBW RELEASE_CACHE : 3891 ; 

04 00090 RET : 3893 ; 


3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 4408 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


: Library Statistics 


RDBLOK jan-1985 1 AX=11 Bliss-32 v4.0-742 Page 9 
v04-005 b- Jan-1995 13:28:33 HTL pk ise5 Re VG. 95052, age 85 


; sooceses Syabols oooeeese Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA18:(SYSLIBILIB.L32;1 18619 92 0 1000 00:01.9 


; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /I.IS=LIS$:RDBLOK/OBJ=0BJ$:RDBLOK MSRC$:RDBLOK/UPDATE=(BUG$:RDBLOK) 
; Size: aA0) coge + 7 data bytes 

; e: :22. 

; Elapsed Time: 06:02.3 

: in: 889 

: Lexemes/CPU-Min: 62096 


Y Used: 490 pages 
; Compilation Complete 


1443 VaX/VNS V4.1 SRC_LST MCRE UPD 


0444 VAX VMS VE SRC LST MORE UPD 


